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INTRODUCTION 


BACKOROLJNl) 

The  David  \V.  I'aylor  Naval  Ship  Research  and  Development  Center  ( D'l'NSRDC)  employs 
approximately  3000  persons,  stationed  botli  ut  Carderock  and  Annapolis  in  Maryland  and  at 
various  detachments  around  the  continental  United  States.  To  create  and  maintain  personnel 
records  and  training  records  on  such  a large  number  of  employees,  a computerized  record 
maintenance  system,  the  Centralized  Automated  Personnel  Management  Information  System 
(C'.APMIS)’ , has  been  developed.  CAPMIS  generates  a large  number  of  personnel  reports  and 
automatically  completes  and  prints  personnel  action  forms  (STSO's)  each  with  correct  informa- 
tion for  the  employee  specified.  CAPMIS  is  currently  being  used  at  the  Naval  Research  Labora- 
tory. the  Capital  Area  Personnel  Services  Office  * Navy,  and  the  Navy  Regional  Tinance  Center, 
as  well  as  at  DTNSRDC. 

To  acce.ss  information  not  presented  in  the  standard  reports  produced  by  CAPMIS,  the 
QULRY  system  was  developed.  This  on-line  interactive  system  is  based  upon  a collection  of 
programs  and  subroutines  developed  at  the  Naval  Surface  Weapons  Center  in  White  Oak.  Mary- 
land, and  is  included  as  a subsystem  of  CAPMIS.  It  provides  a quick  and  efficient  way  of  supply- 
ing management  with  up-to-date  personnel  information  taken  from  the  CAPMIS  data  base. 

Documentation  about  the  QUIiRY  system  was  not  provided  by  its  developers.  Since  suc- 
cessful use  of  the  system  at  DTNSRDC  over  a prolonged  period  requires  the  existence  of  some 
permanent  source  of  information  about  the  capabilities  and  use  of  the  system,  the  present  docu- 
mentation effort  was  begun.  In  the  process,  several  useful  refinements  to  the  QULRY  system 
were  suggested  and  implemented.  A description  of  the  improved  system  is  provided  in  the  pages 
that  follow. 


OVLRVILW  OF  THE  DTNSRDC  QULRY  SYSTEM 

The  QULRY  system  is  composed  of  a number  of  F'ORTRAN-coded  programs  and  sub- 
routines run  on-line  from  a teletype  terminal  (TTY)  interfaced  with  the  Center’s  CDC  6700 
SCOPE  3.4  computing  facility.  I'wo  separate  input  files  are  used-one,  a data  file  known  as 
L.MPDAT.A,  structured  from  the  COBOL-produced  employee  data  file,  which  contains  a separate 
record  of  data  for  each  person  employed  at  the  Center;  and  the  other,  a file  made  up  of  various 
categories  of  employee  data  selected  from  the  employee  data  file.  The  latter  file,  known  as  the 
Inverted  File,  is  prepared  by  a program  known  as  the  Inverter.  The  actual  programs  and  subrou- 
tines needed  to  interact  with  the  input  files  and  to  carry  out  the  retrieval  and  reporting  functions 
indicated  are  furnished  by  the  QULRY  System.  Linder  this  system,  output  may  be  obtained 
either  on-line  at  the  TTY  or  off-line  at  the  batch  printer,  although  a TTY  (either  a high-speed  30 
cps  or  a low-speed  10  cps)  is  used  for  input  in  any  case.  A block  diagram  of  the  QUl-RY  System 
is  provided  in  Figure  I . 


' “Centrali/cd  .Automated  Personnel  Management  Information  System.  Personnel  Operations  Manual."  (Prepared 
for  the  David  W.  Taylor  Naval  .Ship  Research  and  Development  Center)  Control  Data  Corporation  (Dec.  1975). 
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I'igurc  1 — Block  Diagram  of  the  QUERY  System 


Tlie  programs  of  the  QUhRY  System  are  of  three  main  types:  ( 1 ) Tliose  which  prepare  the 
data  file,  (2)  those  which  select  and  format  the  data,  and  (3)  those  which  produce  batch  output. 
The  following  paragraphs  describe  these  programs  in  greater  detail. 

Preparation  of  the  Inverted  File 

One  main  program  and  13  subroutines  are  used  for  organizing  certain  employee  information 
into  a form  suitable  as  input  to  the  programs  of  the  QUERY  system.  The  main  program, 
INVERT,  builds  lists  of  employee  social  security  numbers,  the  arrangement  of  each  list  being 
based  upon  the  values  existing  in  the  specific  field  in  question  (the  Age  field,  for  example)  in  the 
employee  data  records.  Each  list  is  based  on  a different  field  in  the  employee  data  records.  All 
of  these  lists  (records)  are  placed  together  on  a single  file  to  make  up  the  Inverted  File.  At  the 
same  time  that  the  lists  are  created,  a directory  to  each  of  the  lists  is  formed  which  serves  as  an 
index  to  the  social  security  numbers  of  those  employees  who  possess  a specific  value  within  the 
category  (are  of  the  same  age,  for  example). 

Inverted  lists  have  been  made  up  for  a number  of  different  categories,  such  as  Age,  Grade. 
Department,  etc.,  which  are  frequently  used  to  provide  information.  By  creating  these  sorted 
records  in  advance,  access  time  can  be  greatly  reduced,  since  it  is  often  just  that  one  piece  of 
information  that  is  desired  about  a set  of  employees,  not  all  of  the  infomiation  contained  in  the 
employee  records.  Details  about  the  process  of  inversion  are  provided  in  the  section  of  this  re- 
port entitled  “Preparation  of  the  Inverted  Data  File.” 

Selection  and  Arrangement  of  Data 

The  QUERY  Overlay  Program  is  executed  from  a teletype  tenninal  with  all  input  typed  into 
the  computer  by  the  user  at  the  keyboard.  The  following  commands  will  cause  the  program  to 
select  employees  who  meet  certain  specified  qualifications  and  to  display  the  names  of  those 
employees  and  related  data  about  those  employees: 

GROUP  and  COMBINE  Determines  all  those  employees  having  the  qualifications 

specified. 

DISPLAY  Displays  the  SSN’s  of  those  employees  contained  in  each 

category. 

ELEMENT  Displays  requested  data  about  a single  employee. 

SORT  Sorts  employees  within  categories,  using  a specified  sort 

key. 

COMPUTE  Computes  statistical  data  for  specified  sets  of  employees. 

TABLE  Displays  data  for  two  categories  in  tabular  form. 

The  user  will  ordinarily  prefer  to  have  his  output  typed  out  on-line  at  the  TTY,  although  he 
may  designate  that  it  be  printed  off-line  by  the  central  site  printer  or  at  a remote  batch  terminal. 
Note  that  output  from  the  SORT  program  cannot  be  directed  to  the  TTY. 


3 


Production  of  Hatch  Output 

riirec  programs  are  used  for  generating  batch  output:  RM’OR  1 , SOR  I Rid',  and  I Alf  Id,. 
I'ach  is  invoked  by  a control  card  record  generated  in  OOf  RV  and  submitted  to  the  batch  (jiieue 
of  tlie  td)C  6700.  VVlien  e.xecuted.  these  control  cards  cause  the  following  files  to  be  accessed: 
the  employee  data  file,  the  inverted  file,  and  the  tile  formed  during  the  execution  of  OUI  RV. 
The  programs  carry  out  the  following  futictions: 

Rld’ORT  ('icnerates  data  about  specified  persons. 

SOR  I'RKP  Generates  a sorted  list  of  employees,  arranged  according 

to  given  sort  keys. 

r.\BLF  Generates  a statistical  table  which  compares  two 

categories. 


USE  OF  THE  QUERY  SYSTEM 

SIGNING  ON  FROM  THF  TFLFTYPF  TERMINAL 

The  user  “dials-up”  the  computer  via  a special  telephone  number,  lie  then  types  in 
LOGIN,  and  follows  this  with  his  assigned  USFRNA.MF  and  PASSWORD.  The  TTY  then  prints 
out  the  word  COMMAND  to  which  the  user  responds  COMRADE,  PFRSONNl:L  to  indicate  that 
the  COMRADE  executive--^  is  to  be  invoked  and  the  PEiRSONNEL  stdssystem  entered. 
CO.MRADE  then  types  out  a series  of  question  marks  (?  ? ? ?)  in  response  to  which  the  user 
types  in  the  name  of  the  specific  procedure  he  wishes  to  enter.  When  the  word  QLIEiRY  is 
entered,  the  following  files  are  attached: 

• The  main  overlay  program  QUERYMAIN. 

• The  primary  overlay  program  QUER\’OVERLAYS. 

• The  indexed  sequential  employee  data  file  (LE'N  = EMPDATA). 

• The  inverted  employee  data  file. 

QUERY  then  types  out  the  question.  ARE  YOU  FAMILIAR  W1  FH  THIS  SYSTEM  .’  If 
the  user  responds  NO,  a small  tutorial  session  ensues  to  acquaint  him  with  the  steps  to  be  taken. 

If  he  responds  YES,  control  of  the  program  transfers  immediately  to  the  subroutine  EXEC  of 
the  main  overlay. 

The  EXEC  subroutine  prints  out  the  question  COMM.XND'?.  and  the  user  types  in  the  name 
of  one  of  the  following  nine  commands:  GROUP,  COMBINE.  SORT.  STOP,  ELEMFiNT. 

TABLE,  TIME,  ABORT,  or  FIELP.  Each  of  the  nine  performs  a necessary  service  to  extract  or 

-Rhodes,  T.  and  W.  Gorham,  “COMRADE-The  Computer-Aided  Design  Fnvironmenl  Project.  An  Introduction." 

David  W.  Taylor  Naval  Ship  Research  and  Development  Center  Report  76-0001  (1076). 

-^Tinker.  R.  and  I.  Avrunin.  “COMRADE  Executive  Systetn  flscrs  Manual."  David  W.  Taylor  Naval  Ship  Rcseaich 
and  Development  Center  Report  76-0002  ( 1076). 
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tubulate  information  from  the  large  employee  file  or  to  eojitrol  the  program,  l-.xamples  to 
illustrate  the  use  of  these  eommani.ls  are  provided  in  the  seetion  entitled,  “l-.xamples  of  the  Use 
of  the  QUl  RY  System.”  hiaeh  is  diseussed  separately  in  this  report. 


QLIhi'lY  COMMAND  DHSC'KIPTIONS 
The  OROUIVC'OMBINH  ( omnrmds 

file  CiROUR  and  the  COMBlNhi  eommands  eause  data  from  two  or  more  different  sets 
(cuU’f’orics  in  the  inverted  file)  to  be  eombined.  Before  either  of  the  programs  is  ealled,  control 
is  first  transferred  to  the  subroutine  C’ATHORY  in  the  main  overlay.  After  the  user  enters  a 
category  name  and  specific  values,  CA  I hClRY  calls  the  program  VLC)VL  (Overlay  ( 1,0))  to 
check  on  the  validity  of  1he  values  and  to  arrange  them  in  a specified  order.  The  resulting  list, 
or  collection  of  data,  is  used  in  the  operation.  To  obtain  other  sets  of  data,  tlie  input  string  of 
commands  and  values  is  again  searched  for  the  next  category  name,  and  VLO\  L is  again 
called;  the  checking  and  sequencing  process  is  repeated.  When  two  files  of  SSN  data  have  been 
selected.  Overlay  ( 2,0)  is  called  and  the  appropriate  subroutine  (either  OROUR  or  C'OMBINI-i) 
is  entered. 

The  OROUl’  subroutine  performs  a logical  AND  operation  on  the  two  sets  of  data.  Thus, 
by  definition,  elements  or  SSN's  — which  occur  in  both  sets  are  included  in  the  new  set.  This 
process  may  be  repeated  for  any  number  of  input  sets.  Resultant  sets  are,  in  effect,  the,. .selves 
categories  formed  necessarily  from  certain  of  the  categories  in  the  inverted  file.  The  re:  .'It  of 
each  OROUR  operation  will  always  be  a set  which  is  no  larger,  and  most  likely  smaller,  man 
either  of  the  input  sets.  After  the  last  set  of  input  data  has  been  “grouped.”  a file  of  the  deshed 
data  will  exist  in  program  storage. 

T he  (X)MBINH  subroutine  performs  a logical  OR  operation  on  two  sets  of  data.  Idements 
occurring  in  either  set  will  appear  in  the  result.  The  CC^MBlNFi  operation  may  be  repeated  for 
any  number  of  input  categories.  The  set  formed  from  certain  of  the  categories  of  the  inverted 
file  itself  becomes  a new  category  which  will  be  at  least  as  large  as  the  largest  of  the  input  sets, 
and  perhaps  larger.  The  file  formed  as  a result  of  the  operations  of  the  OROUR  and  COMBINH 
subroutines  can  be  operated  upon  by  certain  directives  (DISRLAY  and  COMRUTRA  which  are 
issued  at  the  terminal  in  response  to  the  printout  NTXT?  issued  while  CAThORY  is  in 
control.  These  directives  are  described  in  the  paragraphs  that  follow. 

• The  DISI’LAY  Directive.  . . Displays  data  for  a particular  set  of  employees 

1 his  directive  residts  in  the  calling  of  the  program  DSOVL  (Overlay  (3,0))  and  the  display 
of  data  concerning  the  employees  contained  on  the  file  formed  by  a OROUl’  or  a COMBINT 
operation.  The  printed  output  may  be  produced  either  on  the  teletypewriter  or  on  the  batch 
printer  (consult  the  section  entitled  “Rroduction  of  Batch  Output”),  the  choice  indicated  while 
DSOVL  is  executing.  Output  may  be  produced  in  one  of  three  predefined  formats,  called 
NAML,  BRU  T.  or  DHTAIL.  Tile  user  may  specify  that  a format  of  his  own  design  be  used.  The 
special  format  will  be  named  by  the  user  and  stored  on  disk  until  needed  by  DISRLAY  to  pro- 
duce output  during  the  current  session. 
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In  program  INVliRT,  five  words  are  associated  witli  each  field  name  stored  in  array  H). 
t)f  the  approximately  250  fields  available,  as  many  as  100  may  be  used  to  define  formats 
(FDDhF  (5,100)).  The  five  words  associated  with  each  Held  are  as  follows: 


I DDl-.l- (1,1)  ) 
I DDFl- (2,1)  f 

I DDHT  (3.1) 

FDDFF  (4.1) 
FDDFF  (5,1) 


j 

Field  name.  i 


CHAR  I WORD;  a pointer  to  the  location  of  the  field  in 
the  employee  record. 

Size  (in  characters)  of  output  line. 

Ml  D1  M2  D2  M3  D3 


The  three  predefined  formats  occur  in  memory  as  follows: 


(1)  BRF(2,10)  (BRFd.D'v  NAMFd.DI 


1_ 

BRFd.I) 

BRF(2,I) 

1 

DIVISION-C 

ODE 

2 

SERIAL 

A 

3 

NAME 

A 

4 

PAY-PLAN 

A 

5 

SER 

A 

6 

GRADE 

A 

7 

STEP 

A 

8 

BIRTH-DATE 

A 

9 

SERVTCE-CO 

MP-DATE 

10 

SALARY 

A 

NMF  (2,10) 

J_ 

NME  (1,1) 

NME  (2.1) 

1 

SERIAL 

A 

-> 

NAME 

A 

6 


(3)  l)TL(2,10) 


[ 

DTL(M) 

1)TL(2,I) 

1 

SERIAL 

A 

■) 

NAME 

A 

3 

SS 

A 

4 

SERIES-TIT 

LE 

5 

PD-N  UMBER 

A 

6 

HOME-STATE 

A 

7 

HOME-PHONE 

A 

8 

BLDC.-NO 

A 

9 

ROOM-NO 

A 

10 

OFEICE-PHI 

A 

{•'or  use  in  conjunction  with  these  formats,  tlie  following  information  is  set  up  in  program 
QUKRY  and  stored  in  COMMON: 

I  DISDF.Fd,!)  DISDFF(2,I)  DISDEF  (3,1) 

1 BRIEF  10  a, 

2 NAME  2 32 

3 DETAIL  10  33 

24 

where  DISDEF(1,I)  is  the  name  of  the  predefined  format, 

DISDEF(2,I)  is  the  number  of  elements  in  the  corresponding  record,  and 
DISDEF(3,I)  is  the  record  number  for  format  I. 

As  many  as  21  new  formats  may  be  defined  by  the  user.  Information  similar  to  that  of  the 
three  predefined  formats  is  stored  in  the  array  13ISDEF  (l,J)  for  each  new  format. 
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• Hie  COMPirri-  Directive  . . . Determines  average  values  of  a set  of  elements 


riie  issuance  ol  this  directive  results  in  a call  to  the  program  C'MOVl.  (Overlay  (5,0t).  I his 
program  operates  upon  the  data  of  a base  set  (S)  or  category  which  must  /trci  iimsjc  have  hccii 
set  up  iti  memory  (and  stored  on  disk)  by  a COMBlNbi  or  (iROUl‘  operation.  In  response  to  the 
printout  NLXT?  - issued  in  CA'ri-XjRY,  the  user  enters  the  word  COMl’U  I 1.,  followed  by  a 
category  name  and  some  value  in  that  category.  The  category  is  either  permanently  contained 
in  the  inverted  file  or  especially  created  during  the  current  run.  I'he  first  number  to  be  com- 
puted and  printed  out  is  the  number  of  elements,  n,  in  the  set  S which  have  the  value  designated. 

II 

Ne.xt  to  be  computed  and  printed  out  is  the  sum  of  the  values  over  all  these  elements.  V^. 

Most  likely  some  of  the  elements  will  have  the  same  value.  I'inally  to  be  computed  and  printed 

out  is  the  average  value  over  the  elements,  ( - VT/n.  An  example  ol  the  use  of  the  (OMl’DI  1 

I * 

directive  is  included  on  page  37. 

• The  HLKMliNT  Directive  . . . Displays  data  for  a single  employee 

This  directive,  the  coding  for  whicli  occurs  in  the  DSOVL  overlay,  is  similar  in  function  to 
the  DISPLAY  directive,  except  that  data  is  displayed  for  one  employee  only,  l urther  iletails 
about  this  directive/command  are  contained  on  page  10. 

• The  TIME  Directive  . . . Calculates  the  elapsed  computer  time 

This  directive  results  in  a printout  indicating  the  elapsed  CP  time  and  the  CONNL.CI  time 
t'or  the  current  run.  The  directive  (or  command)  may  be  entered  whenever  input  is  rcHpiested. 
and  control  is  returned  to  the  statement  in  the  calling  program  immediately  after  the  call  to 
TIME. 

• The  HEILP  Directive  . . . Prints  out  information  on  the  use  of  the  commands 

The  entry  of  the  directive  HELP  results  in  a transfer  of  control  to  the  subroutine  CATllliLP 
(category  help)  which  provides  assistance  for  the  user  ol  the  program  QUERY.  CATIIL  LP 
defines  possible  inputs  and  their  corresponding  outputs.  In  general,  the  HELI’  command  may  be 
entered  whenever  input  is  requested  by  QUERY.  A specific  HELP  subroutine  is  available  to 
give  assistance  to  the  user  with  respect  to  the  particular  subroutine  in  control.  Return  from  a 
call  to  a HELP  subroutine  is  made  to  the  line  immediately  following  the  call.  Further  details 
about  the  HELP  subrou'ines  are  to  be  found  in  the  section  entitled  “On-Line  Assistance  on 
Use  of  Commands  and  .Directives.” 

• The  STOP  and  ) Directives.  . . Discontinue  processing 

Each  of  t!'f"^<’  directives  produces  varying  results,  depending  upon  what  has  been  done 
previously  and  the  responses  to  certain  queries.  If  the  category  is  to  be  saved,  its  “save  name” 
is  entered  and  then  checked  by  the  program.  Names  are  arranged  in  alphabetical  order,  the  key 
block  is  written  out,  and  control  words  are  set  up.  If  the  program  is  to  continue,  a new  key 
block  is  read  in  and  the  new  category  is  combined  with  another  already  in  memory.  If  an  exit 
from  the  subroutine  CATECiRY  and  a return  to  the  subroutine  liXliC  is  desired,  header  and 
data  blocks  associated  with  key  block  KRA  are  released. 
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• I'lie  = Directive  . . . Saves  a data  set 


I'tiis  entry  causes  the  category  to  be  saved  on  mass  storage.  A new  key  block  is  read  in 
and,  if  desired,  a new  category  is  combined  or  grouped  with  an  existing  one. 

• The  ABOR  T'  Directive  . . . Terminates  the  processing  of  tlie  current  comtnand 

Tliis  directive  causes  the  current  operation  to  be  terminated  and  aiu)ther  command  to  be 
executed  in  the  subroutine  l!XbX'. 

I lie  SOR'r  Command 

T he  SORT  command  references  tlie  SROVL  overlay  which  sorts  a given  category  according 
to  the  values  of  its  elements.  The  SORT  command  operates  upon  cataloged  categories,  which 
may  be  user-defined.  When  SROVL  is  entered,  the  following  message  is  printed  out  at  the  I'  l 'i': 

CATEGORY  TO  BE  SORTED7- 

1 he  name  supplied  by  the  user  is  then  checked  against  an  array  of  acceptable  names  and  against 
the  special  words  HELI’,  TIME,  and  ABORT.  If  the  directive  HELP  is  entered,  help  on  the  use 
of  the  sort  function  is  provided;  if  the  directive.TIME  is  entered,  a printout  of  the  elapsed  time 
is  produced;  and  if  the  directive  ABORT  is  entered,  the  SORT  program  aborts.  If  the  name 
supplied  is  none  of  these,  and  if  it  cannot  be  found  in  the  array  of  acceptable  names,  the 
message 


(name)  DOESN’T  EXIST 

is  printed  out,  another  name  is  requested,  and  the  entire  procedure  is  repeated.  If  the  category 
name  is  found  in  the  array  of  names,  the  subroutine  DISTART  is  called  and  a display  format  is 
selected.  The  user  may  develop  his  own  format  or  select  one  of  the  standard  types.  If  the  word 
DEI'INE  is  entered  when  the  message  ENTER  DISPLAY  TYPE  is  printed,  the  subroutine 
DEE'INE  is  called.  The  user  may  enter  names  for  fields  to  be  included  in  his  format  and  a name 
for  the  format  itself.  This  information  is  stored  for  him  as  another  display  format.  The  user 
must  also  specify  whether  or  not  he  wishes  to  have  column  headings  printed. 

The  printout  ENTER  SORT  TYPE  is  produced  following  the  return  from  the  display  initiation 
subroutine  DISTART.  The  name  that  indicates  the  predefined  sort  type  (a  key,  or  item  of  data) 
to  be  used  in  sorting  the  information  is  entered  and  the  corresponding  sort  definition  is  read 
from  disk.  If  the  word  DEFINE  is  entered,  the  subroutine  SORTDEF  is  called  which  allows  the 
user  to  make  up  his  own  sort  definition  from  selected  data  fields.  If  the  sort  format  specifies 
n.,.>ie  Mian  one  field,  the  category  data  will  be  sorted  on  each  field  in  turn,  thus  providing,  in 
effc'i  '.  a refinement  of  the  sort  in  cases  of  “ties”  or  duplicate  values  in  one  field.  The  user  can 
also  specify  in  SORTDEF,  for  each  field  of  the  sort  format,  whether  the  values  in  a field(s)  are 
to  be  sorted  in  ascending  or  descending  order. 

Only  one  predefined  sort  format  is  available.  Named  ALPHA,  this  predefined  sort  format 
consists  of  a single  sort  field,  NAME.  Using  this  format,  the  sort  wiP  be  made  on  employee 
name.  Sort  formats  are  stored  in  the  array  SRTDEF(3,1  2),  with  three  entries  per  definition: 

( 1 ) name,  (2)  number  of  fields  in  the  corresponding  record,  and  (3)  the  number  of  the  record 
containing  the  data.  As  many  as  I 1 new  sort  formats  may  be  defined  by  the  user. 
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Since  output  from  the  program  SROVL  is  always  produced  by  a batch  job,  input  lor  this 
job  must  be  provided  from  disk  records.  Tlie  display  delinition  and  the  sort  definition  are 
written  to  a disk  record  and  the  selected  SSN’s  are  written,  one  per  record.  I he  collection  ol 
records,  or  the  disk  file,  forms  the  input  to  the  batch  Job;  the  name  of  this  file  is  generated  by 
the  subroutine  TUHRf.  The  program  SRIBICM  (Overlay  (13,0))  submits  the  Job  to  the  batch 
queue.  When  the  program  SORTRTP  begins  execution,  it  generates  and  prints  out  a sorted  file. 

The  STOP  Command 

f ntry  of  this  command  brings  the  QUbRY  session  at  the  terminal  to  an  end.  The  elapsed 
CP  time  and  the  CONNbXT  time  are  printed  out,  and  control  is  returned  to  the  COMRADi: 
system  (by  which  the  entire  QUERY  system  is  controlled).  The  user  may  then  select  another 
subsystem  of  COMRADE,  most  usually  LOGOUT,  which  will  cause  the  termination  of  the 
user’s  session  at  the  terminal. 

The  ELEMENT  Command 

This  command  is  analagous  to  the  ELEMENT  directive  entered  in  subroutine  CATECiR'r . 
Program  control  is  transferred  to  DSOVL  (Overlay  (3,0))  and  then  to  (he  subroutine  ELEMENT, 
The  purpose  of  this  subroutine  is  to  display  information  about  one  employee  (SSN)  at  a time. 
First,  the  display  is  initialized  by  the  subroutine  DISTART.  To  the  request  tor  the  destination 
of  the  output,  the  user  responds  with  either  HERE  (for  TTY  output),  or  THERE  (for  batch 
out  nit).  An  option  for  printing  headings  above  the  output  is  ottered,  and  a choice  ot  a tormat 
to  govern  the  presentation  of  the  data  is  given.  As  indicated  earlier,  three  predetined  tormats 
are  available  (NAME,  BRIEF,  and  DETAIL);  the  user  may  make  up  a fomiat  of  his  own.  by 
typing  in  the  word  DEFINE.  Then,  in  response  to  the  program  typeout  ENTER  DATA 
FIELD  (S)  or  ‘STOP’  -,  the  user  indicates  the  fields  he  wishes  included  in  his  output,  and  then 
follows  this  by  the  directive  STOP.  In  response  to  the  question  NAME?  the  name  of  the  new 
format  is  entered  and  the  format  is  cataloged  for  the  current  run. 

When  control  returns  to  the  subroutine  ELEMENT,  the  element  name  ot  an  employee 
(actually  his  social  security  number)  is  requested.  If  the  output  is  to  be  produced  on  the  batch 
printer,  the  SSN  is  written  to  a disk  file.  If  output  is  to  be  produced  on  the  TTY,  the  employee 
record  is  retrieved  by  an  IS  (indexed  sequential)  call,  using  the  SSN  as  a key.  The  subroutine 
PRINTER  is  called  to  extract,  format,  and  print  the  pertinent  data  from  the  employee  record. 

Control  is  next  transferred  to  a module  of  the  code  which  will  determine  the  next  element 
name,  and  the  same  procedure  is  followed.  Ce'-tain  words  entered  in  response  to  a request  for 
input  will  trigger  some  definite  action  to  be  taken.  In  the  case  ot  batch  output,  the  directive 
STOP  will  cc’.'se  ti:e  Job  to  be  submitted  to  the  central  site;  but  in  the  case  ol  TTY  output,  that 
directive  will  cau'«''  a direct  return  to  be  made  from  the  program  ELEMENT.  The  word  ABORT 
causes  the  subroutine  to  be  aborted.  The  word  TIME  causes  the  current  time  to  be  printed.  The 
word  HELP  causes  control  to  be  transferred  to  a .subroutine  that  will  provide  instructions  for  the 
use  of  the  ELEMENT  command. 

Thf  TABLE  Command 

Entry  of  the  command  TABLE  causes  TBOVL  (Overlay  (6,0))  to  be  called  in.  The  program 
produces  as  output  a table  which  specifies  the  number  of  employees  having  both  the  values  of 
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category  1 and  the  values  ol' category  2.  I'luis  an  NxM  matrix  is  produced,  n being  the  number 
of  values  in  the  first  category,  and  m the  number  in  the  second. 


C alled  from  TBOVL,  the  subroutine  TABLlv  first  determines  the  destination  of  the  output. 
The  special  words  HBLF,  ABORT,  and  TIMH  may  be  entered  at  any  time  with  the  usual  result. 

To  the  typed  request  HNTHR  CATEGORY  NAMH  l-OR  ONi;  C'OMBONl-NT  OF  THF  TABLF-, 
the  user  types  in  a category  name.  If  the  name  is  valid,  a request  for  the  second  category  is 
made.  If  the  name  cannot  be  found  in  the  list  of  inverted  categories,  the  statement 

Name  IS  NOT  A VALID  CATHGORY  NAMF,  TRY  AGAIN 

is  produced,  and  the  user  enters  another  name.  When  both  category  names  have  been  accepted, 
and  if  the  output  is  to  be  produced  IIFRH  (at  the  TTY  terminal),  the  table  is  generated  by  the 
subroutine  TBLCNT.  In  the  case  of  batch  output,  data  for  each  category  are  written  to  a disk 
file  (Tape  3)  and  submitted  to  the  central  site  by  program  rBLBTC’ll.  using  a password  gener- 
ated by  the  subroutine  THERK.  The  batch  program  TABLli  makes  use  of  the  data  file  but  does 
not  use  the  employee  data  file  EMPDATA.  Further  information  relative  to  the  batch  program  is 
provided  in  the  section  “Production  of  Batch  Output.” 

The  TIME  Command 

This  command  is  issued  whenever  the  user  wants  to  know  how  much  central  processor  time 
has  elapsed,  or  exactly  the  amount  of  time  used  in  the  current  terminal  session  since  sign-on. 

After  the  coding  has  executed  control  returns  to  the  statement  lollowing  the  one  which 
requested  the  TTY  input  (TIME). 

The  ABORT  Command 

This  command,  which  may  be  entered  in  many  places  throughout  QUERY,  returns  control 
to  the  subroutine  EXEC  which  prints  out  the  message  SESSION  TliRMINATED  and  indicates 
the  amount  of  time  that  has  elapsed.  The  EXEC  subroutine  also  causes  the  disk  files  to  be 
rewound  and  the  indexed  sequential  system  to  terminate.  The  program  stops  and  control  is 
returned  to  the  COMRADE  executive  system. 

The  HELP  Command 

This  command  may  be  issued  at  various  times  throughout  the  execution  of  the  QUERY 
Overlay  Program.  As  soon  as  it  is  issued,  control  is  transferred  to  the  subroutine  which  provides 
general  information  about  the  use  of  QUERY,  or  specific  information  about  a certain  function 
of  the  systetn.  Control  returns  to  the  statetnent  following  that  which  requested  TTY 
input. 

PROCEDURE  FOR  SAVING  CATEGORIES 

Several  uniciue  sets  of  data,  called  “categories.”  are  operated  on  by  the  QUF!RY’  system. 
These  categories  are  formed  from  data  contained  in  the  employee  data  file  using  the  process  ol 
“inversion”  (explained  later  on  in  this  report).  Once  formed,  they  are  stored  on  a FOR  FRAN 
mass  storage  file.  If  the  user  wishes,  he  can  construct  his  own  categories,  which  will  be  cataloged 
for  the  duration  of  his  session  at  the  terminal  only.  Categories  are  used  by  the  programs  GCOVL. 
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USOVL,  SROVL.  C'MOVL,  and  TBOVL.  Hie  DISPLAY  and  (OMl'UTl.  subroutines,  ol  the 
programs  DSOVL  and  C’MOVL,  respectively,  will  operate  only  upon  categories  developed  by  the 
user  within  program  GC'OVL;  SOK  L (SROV'L)  and  l ABLL.  ( I'B()\'L)  will  ojierate  on  both  types 
of  categories. 

The  user  forms  a new  category  by  selecting  SSN’s  from  given  categories,  using  the  (iROUP 
or  C'OMBINE  operation.  He  may  be  as  definitive  as  necessary.  After  a category  has  been  con- 
structed, the  message  SAVH  C’ATKGORY  will  be  printed  out  by  the  program.  If  the  user 
responds  YLS,  the  message  HNTLR  C'ATLXiORY  SAVL.  NAMl'  is  printed  out.  and  the  user 
must  type  in  an  identifying  name  for  his  new  category.  When  the  category  is  added  to  the  mass 
storage  file,  its  name  is  added  to  the  array  of  category  names  contained  in  core  memory,  in  the 
j correct  alphabetic  position.  Memory  space  for  64  category  names  and  associated  block  names  is 

! set  aside  in  the  QUERY  program.  The  corresponding  key  block  is  written  to  mass  storage  along 

i with  header  block  indicators  and  data  blocks. 


ON-LINH  INFORMATION  ABOUT  QUERY  COMMANDS  AND  DIRECTIVES 

The  QUERY  user  may  request  help,  in  the  form  of  e.xplanations  and  guidance,  at  various 
points  in  the  executing  program.  The  entering  of  the  command  HELP  will  result  in  printed  in- 
structions pertinent  to  the  particular  process  currently  being  undertaken.  The  main  overlay  calls 
upon  several  HE^LP  routines.  The  QUEIRY  system  is  so  arranged  that  all  the  HELP  routines  are 
concentrated  in  two  separate  primary  overlays.  Program  HLPOVLl  (Overlay  (7,0))  is  called 
whenever  help  with  a particular  category  is  needed  (CATHELP)  or  when  help  in  specifying  values 
is  needed  (SPCHELP  and  VALHELP).  Since  HLPOVLl  is  a primary  overlay,  it  has  access  to  all 
of  the  subroutines  of  the  main  overlay.  Other  subroutines  needed  CMBHELP,  CMPHELP. 
DISHELP,  ELEHELP,  SETLOOP,  and  NUMBER  - are  included  in  the  HLPOVLl  program 
directly.  Program  HLPOVL2  (Overlay  ( 10,0))  is  called  whenever  general  information  about  the 
whole  system  is  desired  (COMHELP).  The  program  HLPOVL2  contains  all  of  the  subroutines 
COMHELP  needs-namely,  CMBHELP,  ELEHELP,  C.RPHELP,  SRTHELP,  and  TBLHE  LP.  Like 
HLPOVLl,  Program  HLPOVL2  also  may  reference  all  of  the  subroutines  of  the  main  overlay. 

Each  of  the  overlays  (( 1 ,0)  - (6.0))  calls  on  HELP  subroutines.  Those  needed  by  each  pro- 
gram are  included  in  the  respective  overlay.  All  told,  there  are  12  HELP  subroutines  ( 13  entry 
points).  A description  of  each  follows: 

CATHELP  — Describes  the  Subroutine  ('ATEXiRY 

As  with  all  HF.LP  subroutines,  and.  indeed,  with  the  entire  QUERY  system.  CATHliLP 
operates  in  a tutorial  fashion.  When  a question  is  typed  out  at  the  TTY  by  the  system,  the  user 
responds  by  typing  in  his  answer.  The  user  may  re(|uest  the  definition  of  any  category  named  on 
the  category  list.  A list  of  the  directives  to  subroutine  CATEGRY  may  also  be  requested  as 
output.  The  user  may  reciuest  information  from  CATHE’LP  about  any  of  the  several  operations 
CATEXJRY  initiates,  including  GROUP,  COMBINE.  DISPLAY.  COMPUTE,  and  ELEMENT.  A 
HEXP  subroutine  furnishes  explanations  of  each  of  the  aforementioned  operations. 
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C'MHIU'Ll’  Describes  the  COMBINI-  Coimnand 


I'his  subroutine  will  explain  the  Lise  of  the  COMBlNli  function  of  the  (2,0)  overlay, 
CiC'OVL.  The  steps  needed  to  combine  portions  of  categories  are  described.  CMBMHLP  explains 
the  formation  of  files  to  be  used  immediately  (e.g.,  by  DSOVL  or  by  CMOVL),  and  the  files  to 
be  cataloged  as  new  categories  and  used  at  a later  time. 

('MPHKLP  Describes  the  CO.MPU  l 1.  Directive 

This  subroutine  provides  instruction  on  the  use  of  Overlay  (5,0),  CMOVL.  CMPHhLP  can 
be  called  either  (rom  the  subroutine  C'A'rLCJRY  in  the  main  overlay  or  from  the  subroutine 
COMPUTL  in  the  (5,0)  overlay  to  explain  the  method  of  computing  the  number  of  elements 
having  a given  attribute  and  the  method  for  computing  the  average  value  of  the  attribute  over  all 
the  elements  possessing  it.  The  input  for  a COMPUTL  directive  consists  of  a category  name. 
When  the  CMOVL  program  is  executing  the  MLLP,  ABORT,  and  TIML  directives  may  be  issued. 
These  inputs  were  described  in  the  section  on  GROUP/C’OMBINL  commands. 


C'OMUELP  — Provides  an  Overview  of  the  QUKRY  System 

This  subroutine,  called  either  from  the  main  routine  QUERY  or  from  the  executive  subrou- 
tine EXEC,  provides  general  information  about  the  entire  QUERY  system.  It  offers  general 
textual  information  on  the  use  of  the  CROUP  and  COMBINE  directives  and  briellv  explains  the 
STOP,  TIME,  ABORT,  and  HELP  commands.  Requests  for  additional  information  about  other 
commands  will  result  in  a transfer  to  one  of  the  following  appropriate  subroutines: 


Command  Name 
Entered 


Subroutine 

Called 


CROUP 

COMBINE 

SORT 

TABLE 

ELEMENT 


CRPHELP 

CMBHELP 

SRTHELP 

TBLHELP 

ELEHELP 


Each  ot  these  subroutines  explains  the  use  of  the  command  indicated.  The  user  may  issue  any 
of  the  above-named  commands  while  COMHELP  is  executing. 


DEEHELP  — Describes  the  Definition  of  Eormats 

DEFHELP  is  used  as  an  entry  point  of  subroutine  DISHELP,  and  is  called  from  the  subrou- 
tine DEEINE  in  the  overlay  DSOVL  by  the  user  when  help  in  defining  his  own  display  format 
is  needed.  Subroutine  SEELCJOP  is  called  to  compute  parameters  to  control  the  printing  loop 
which  prints  out  the  names  of  fields  and  the  widths  (in  characters)  reserved  for  these  fields.  With 
this  information,  the  user  is  able  to  make  up  his  own  individual  foniiat(s). 


DISHELP  — Describes  the  Display  of  Data 

This  subroutine  may  be  called  either  from  the  subroutine  CATHELP  in  the  main  overlay 
or  from  the  subroutine  DISTART  in  the  third  primary  overlay,  DSOVL.  The  DISHELP  subrou- 
tine explains  how  the  DISPLAY  directive  is  used  to  select  a display  format.  The  user  may  rec|uest 
a printed  list  and  a printed  explanation  of  defined  formats  which  will  list  the  fields  in  the  format. 


KLHHHl.P  — Describes  tlie  hLl  MliNT  ('oiiiinand 


This  subroutine  explains  the  use  of  tlie  HLliMHN  T coininand.  The  subroutines  used  to 
display  information  concerning:  individual  elements  (persons)  composing  the  data  base  are  located 
in  the  (3,0)  overlay  program  DSOVL.  The  individual’s  social  security  number  is  the  key  which  is 
used  to  retrieve  infomiation  about  that  person  from  the  data  base  for  subsequent  display. 

CiRPUHLP  — Describes  the  CiROUl’  Command 

This  subroutine  explains  the  CjROUP  portion  of  Overlay  (2,0),  CiCOVL.  The  GROUI’  sub- 
routine compares  two  or  more  categories  and  selects  elements  common  to  all  categories.  .Sub- 
routine GRPHELP  describes  the  input  to  the  GROUP  command  and  explains  how  the  results  of 
the  operation  may  be  saved  as  a new  category. 

SDFHELP  - Describes  the  Definition  of  a SORT  Format 

This  subroutine  explains  how  SORT  formats  are  defined.  These  formats,  used  by  the  (4.0) 
overlay  SROVL,  specify  which  fields  are  to  be  sorted.  Categories  of  data  are  sorted,  according 
to  each  format  in  turn,  in  either  ascending  or  descending  order.  “Ties,”  or  elements  having  a 
common  value  in  some  category,  are  resolved  in  this  way. 

SPCHELP  - Describes  the  Specification  of  Data 

This  subroutine  explains  how  values  of  a category  are  specified.  It  is  called  from  the  sub- 
routine CATEGRY  in  the  main  overlay  when  the  user  types  in  the  word  HELP  after  having 
entered  a category  name.  SPCHELP  specifies  the  ways  in  which  values  can  be  combined  to  pro- 
duce a new  set. 

SRTHELP  — Describes  the  SORT  Command 

This  subroutine  explains  how  categories  are  sorted.  It  is  called  from  the  SORT  subroutine 
in  the  overlay  (3,0),  SROVL. 

TBLHELP  — Describes  the  TABLE  Command 

This  subroutine,  called  from  Overlay  (6,0),  TBOVL,  explains  how  to  generate  a table  that 
will  compare  the  values  of  one  category  with  those  of  another. 

VALHELP  — Explains  the  Choice  of  Input  Values 

This  subroutine,  called  from  the  main  overlay,  explains  how  values  (all  or  only  part)  of  a 
category  are  specified,  and  how  the  number  of  elements  having  a particular  value  are  determined. 

PREPARATION  OF  THE  INVERTED  DATA  FILE 

The  Employee  Data  Record 

The  employee  data  record  is  formated  as  follows: 
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( IIAKACTI  K 


WORD 

0 

1 

*> 

3 

4 

.S 

() 

7 

H 

q 

0 

'•0 

^ 1 

a -) 

^3 

•'4 

^7 

'•8 

1 

^’l 

*''2 

'\3 

^'0 

^'1 

C -t 

^3 

^‘o 

J| 

1 

ds 

^*3 

^<4 

d(, 

^'7 

dq 

‘'lO 

^'ii 

3 

d|2 

^13 

di4 

^'ls 

‘^'l6 

^'17 

•■'iH 

dm 

^20 

^'21 

4 

d22 

^'23 

^*24 

^'2.S 

'■'26 

d vy 

"’0 

'o 

'l 

f2 

63 

^1 

7-2 

^-3 

A record  of  this  type  exists  in  the  data  base  lor  each  employee,  bach  record  is  identified  by 
the  first  item  of  data  in  the  record  (positions  aQ  - a^)  wliich  is  tlie  employee’s  social  security 
number,  used  by  the  index  seciuential  system  in  accessing  the  record.  When  attached  to  the 
Qld  RY  program,  the  file  of  employee  records  is  known  as  the  KMPDATA  file.  Since  the  records 
are  accessed  by  their  SSN’s.  their  position’s  on  the  file  are  irrelevant.  The  data  field  (dQ  - diy) 
contains  the  octal  representation  of  the  name  of  the  employee.  Obviously,  the  fields  need  not 
necessarily  end  at  word  boundaries,  and  may  be  longer  or  shorter  than  one  word  in  length. 

I'he  employee  records  are  generated  by  a COBOL  program.  The  COBOL  program  also  gen- 
erates a dutLi  imp  that  points  to  each  field  of  the  employee  record.  Only  one  data  map  is  needed, 
since  the  order  of  the  data  fields  is  the  same  in  each  data  record.  The  program  INVLRT  forms 
individual  .S-word  arrays,  one  for  each  field  in  the  record. 

f unction  of  the  I’rogram  INVKRT 

The  program  INVLRT  — which  consists  of  a main  routine,  ten  FORTRAN  subroutines,  and 
three  COMPASS  .subroutines  - operates  upon  an  input  file  of  employee  data  records  (KMPDATA) 
to  produce  a so-called  “inverted”  file.  Although  the  term  “inverted”  is  not  applied  in  a tradi- 
tional sense  here,  it’s  use  to  indicate  a special  kind  of  file  (made  up  of  categories  of  information) 
is  widely  recognized. 

Consider  the  employee  data  records,  each  of  which  contains  64  different  items  of  informa- 
tion (fields),  some  used  as  search  criteria  more  frequently  than  others.  (Corresponding  fields 
contain  corresponding  information  in  each  of  the  records).  Time  required  to  access  records  of 
employees  having  given  values  of  certain  categories  (fields),  can  be  significantly  reduced  by  re- 
arranging the  employees  according  to  selected  categories,  i.e.,  category  AGH  used  for  one  inverted 
list,  the  category  (iRADL  for  another,  etc.  the  file  of  records  is  “inverted  on  these  categories.” 
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r 


I’or  each  diosen  category,  the  records  (as  identil'ied  by  tlie  SSN’s)  are  arranged  in  some  logical 
order  of  values  of  field.  I'igure  2 illustrates  the  results  of  inversion  for  one  category.  In  addition 
to  forming  the  data  records,  INVI-.K'I'  produces  a “header  block”  for  each  inverted  category. 

The  header  block  serves  as  a directory  to  the  data.  A two-word  entry  is  made  for  each  value  of 
the  category.  The  first  word  specifies  the  value.  The  second  contains  two  entries,  one  pointing 
to  the  first  element  of  the  data  blocks  having  the  header  value  and  the  other  indicating  the  num- 
ber of  data  elements  having  the  value.  Diagramatically,  the  two  words  have  the  lollowing  lorm: 

Word  I Value 


Word  2 


Pointer  to  first  element 
having  specified  value. 


Number  of  elements 
having  this  value. 


In  the  example  given  in  I'igures  2 and  3,  the  employees  are  classified  by  age;  the  SSN’s  of  all 
employees  of  the  same  age  are  grouped  together.  Within  each  age  group,  the  SSN’s  may  be 
further  organized  in  ascending  order.  The  resulting  “inverted”  file  is  written  out  to  a disk  file. 

Operation  of  Program  INVliRT 

Subroutine  DATADIV  of  the  program  INVHRT  generates  a five-word  array  for  each  of  the 
fields  (<250)  contained  in  the  COBOL  input  data  record.  The  number  of  fields  (divisions)  con- 
tained is  returned  from  DATADIV  in  location  NUMDIV.  The  arrays  take  the  following  form: 


Array  Word 


Contents  of  Location 


LMT(  1,1)1 
FMT(2,I)j 

LMT  (3,1) 

FMT  (4,1) 
FMT(5,1) 


Name  of  field 


CHAR 


WORD 


A pointer  to  the  corresponding  field  in  the  employee  record. 
Size  of  the  output  line  (in  characters) 

Data  needed  by  the  subroutine  FHTCH  for  retrieving  a field 
from  the  user  record. 


After  subroutine  DATADIV  has  finished  executing,  control  is  returned  to  INVHRT.  The  5-word 
subarrays  formed  by  DATADIV  are  alphabetically  arranged  by  name  of  field  within  the  array 
F'MT  (5,256)  which  is  written  to  a mass  storage  file,  and  the  indexed  seciuential  (IS)  data  storage 
and  retrieval  system  is  then  initialized.  The  card  input,  consisting  of  two  cards  per  category',  is 
then  read;  the  first  contains  values  for  the  nine  variables  that  define  the  field,  and  the  second 
contains  an  explanation  of  what  the  field  represents.  The  existence  of  the  category  name  in  the 
F'MT  array  is  verified.  Details  of  the  card  input  follow: 


Variable 


Format 


Description  of  Variable 


COBNAMF 


Name  of  the  entire  field  in  the  COBOL 
input  (the  employee  data  file) 
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Structure  of  Inverted  List  for  the  Category  AGE 


Variable 


b'ormat 


Description  of  Variable 


Card  1 Continued 

OUl  RYNM 

A20 

Name  of  the  subfield  (extracted  from 
COBNAMl;)  in  the  (^Ul  RY  program 
which  is  used  in  the  inverted  file. 

FLDLHN 

no 

Total  length  of  the  input  field  in  the 
EiMPDATA  user  record 

SCIIAR 

15 

The  relative  position  ot  the  subfield 
within  COBNAMl; 

LRNS 

15 

Length  of  subfield 

SPACE 

11 

Indicator  ( used  in  OETDA  LA  ):  Set 
to  “ 1 ” if  field  is  blank  (A A) 

ZERO 

II 

This  variable  is  examined  within  the 
subroutine  VALUE  of  Overlay  ( 1.0); 
if  value  is  other  than  zero,  the  sub- 
routine EORCilVE  is  called  to  fill  the 
field  QUERYNM  with  zero's. 

TIME 

LI 

An  indicator; 

If  T,  date  (Julian)  is  to  be  converted 
to  a number  of  years  (up  to  the  pres- 
ent); otherwise,  indicator  is  set  to  E. 

VARSCAN 

LI 

If  a blank  occurs  within  the  first  word 
of  the  field  retrieved  from  liMPDATA. 
and  if  VARSCAN  = T,  the  remaining 
characters  in  the  field  are  filled  with 
blanks.  If  VARSCAN  = E.  the  field 
remains  as  it  is. 

NUMERIC 

11 

Blank 

Card  2: 

EXPLN 

7A10 

Seven  (or  fewer)  words  explaining  the 
category  represented  by  the  field 

The  following  table  shows  four  sample  inputs; 
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Lxam|)le  1 

Lxample  2 

l xample  3 

Lxample  4 

( OBNAML; 

1)1V1S10N-(01)1 

DIVISION  CODl. 

birhi-dah 

Sl.X 

QUl  RYNM; 

1)1  PAR  fMl  N 1 

0R(,C01)1. 

,Ac;i 

SIX 

11  1)1  N 

6 

() 

0 

0 

SCIIAR 

1 

1 

A 

A 

LINS 

■> 

4 

A 

A 

SPACL 

0 

0 

0 

0 

zi;r() 

1 

1 

1 

0 

riML 

L 

1 

r 

L 

VARSCAN 

1 

1- 

1 

L 

NUMhRIC 

A 

A 

A 

A 

lixplanations  ol'  tlie  examples  follow; 


Example  I.  The  total  field-length  for  I)1\'IS1()N-C01)li  is  1L.DU'N=6.  The  length  of 
the  siihfield  DhPARTMhNT  is  L1-.NS=2;  the  snbfield  starts  in  the  first  eharaeter 
of  the  field  SCHAR=1.  Sinee  Zl  R()=l.  the  entire  (sub)  field  is  cheeked  for  blanks, 
from  the  most  significant  end.  If  one  is  found,  the  remaining  characters  in  the 
word  (to  the  total  of  KB(5))  are  filled  with  zero's.  Since  1 lMb  = T.  indicating  that 
no  date  has  been  given,  no  conversioji  is  rec)uired. 

Example  2.  The  length  of  subfield  ORGCODb  is  Lb’NS=4;  the  subtleld  starts  in  the 
tlist  character  of  the  field  I)1V1S1()N-C()I)I-..  The  (sub)  field  is  checked  for 
blanks  (Zb  R(3=l).  If  one  is  found,  the  field  is  filled  with  zero's. 

Example  2.  Since  F-'LDLN=0.  SCIIAR  and  LbNS  are  not  examined.  Since  lTMlv=T. 
the  increment  of  years,  computed  in  another  subroutine,  is  stored  in  the  first 
two  digits  of  KB(f ). 

Example  4.  Since  ZTRO=0,  no  check  for  blanks  is  made.  It  is  assumed  that  the  field 
for  category  SHX  is  filled. 


Information  from  the  first  input  card  is  used  to  form  some  of  the  elements  of  a key  block 
as  follows; 


KB(I) 

KB(3) 

KB(4) 

KB(.S) 


SPACH 


ZHRO 


NUMHRIC 


MULT  (1)  • MULT  ( 2)  • MULT  (.3).  where  the  MULT(I)  are  ex- 
tracted from  I'MT  (5.1) 

Length  of  the  field  or  subfield  for  the  current  format,  normally  IM  I 
(4.1);if  TIMI->T..  KB(5)=2;  if  VAR.SCAN=.T.,  KB(5)=10;if 
|•L1)L^'=0.  KB(5)=LLNS. 


rile  secolul  input  ciin.1  supplies  inroruuition  lor  the  clerinition  ol'  the  last  seven  words  of  the  key 
block. 


The  I MT  array  is  read  from  disk  and  then  the  C'O.MPASS  subroutine  SORTTR  is  called, 
which,  in  turn,  calls  the  System  SORT/Ml-iRCiT  subroutine,  SMC'ONT.  The  sorting  of  all  the 
employee  records  takes  place  in  SMCON7,  with  the  assistance  of  two  user-coded  subroutines. 
('iTTl)ATA  and  RU  TDATA.  The  former  is  used  to  retrieve  from  the  employee’s  record  ( I)  the 
specific  field  indicated  by  the  format  (for  example,  age),  and  (2)  the  employee’s  social  security 
number.  These  items  of  information  make  up  a separate  two-word  array  which  is  then  placed  in 
with  the  arrays  for  other  records  in  ascending  alphanumeric  order  by  SM(’ON7,  After  all  of  the 
two-word  arrays  have  been  retrieved  and  stored  in  their  correct  sorted  position,  the  subroutine 
PUTDATA  is  called  to  write  the  array  to  a disk  file.  Key  control  data  for  the  current  category 
is  made  up  in  memory,  and  the  key  block  is  written  to  disk. 

fhe  process  just  outlined  is  repeated  for  each  category.  After  all  of  the  categories  have  been 
sorted  and  all  data  have  been  written  to  disk,  the  disk  information  is  edited  and  printed  out.  ac- 
cording to  the  format  indicated.  The  IS  system  is  then  terminated,  and  the  program  INVf.RT  ends. 


f ormat  and  Definition  of  a Key  Block 


Key  Block 
Word  Numbers 


Contents  of  Word 


KB(  I) 
KB(2) 
KB(3) 
KB(4) 
KB(5) 
KB(b) 

KB(7) 
KB(8)  ' 

KB(15) 

KB(16) 

KB(J)  , 

I] 

I-. 


Values  for  SPACf  and  ZTRO;  taken  from  input  card 

Number  of  header  values  for  the  category 

Value  for  NUMf  RIC;  taken  from  INVHRT 

Value  of  MULT(l)-MULT(2)-MULT(.7);set  in  INVfRT 

Number  of  digits  in  value 

Number  of  records  reserved  for  header  blocks;  each  entry  indicates 
the  number  of  elements  per  value. 

Total  number  of  records  of  SSN’s  which  make  up  this  category 

Record  number  of  each  record  of  SSN’s  contained  in  this 
category 


Record  numbers  of  the  header-block  records 

First  value  of  first  header  block 
Last  value  of  first  header  block 


Ip  Last  value  of  last  header  block 

1^1 

'^7 


Seven  words  that  define  the  category 


f'ormat  of  the  Inverted  File 


The  categories  meutioneJ  in  the  following  format  description  are  subject  to  reordering  or 
removal  by  the  persons  in  charge  of  the  DTSSRDC  personnel  program  Therefore,  except  for 
the  first  three  records,  the  record  numbers  shown  may  be  different  from  those  actually  appearing 
on  an  inverted  file,  both  at  this  installation  and  at  others. 


Number  of 
Words 

Record 

Number 

Variable 

Name 

Description 
of  Variable 

3 

1 

KF.Y(CNTRUl)) 

NUMD1V(CNTRL(2)) 

DATE(CNTRL(3)) 

Number  of  keys 
Number  of  defined  formats 
Date  of  inversion 

3*KEY 

2 

KCBd.KEY,) 

KCB(2,KEY,) 

KCB(3,KEY,) 

KCBd.KEY) 

KCB12.KEY) 

KCB(3.KEY) 

Query  name 

Number  of  words  in  key  block 
Key-block  number 

5*NUMD1V 

3 

EMT(l.l) 

FMT(2.1)  \ 

FMT(3,1)  1 

FMT(4.1) 

FMT(5,1) 

FMTd.NUMDlV) 

FMT(5,NUMD1V) 

The  format  for  Element  1 of  all 
the  defined  entrie . in  the  em- 
’ ployee  fileie.g.,  the  social 
security  number 

8*512 

4-10, 

12 

Records  available  for  SSN's 
of  category  QUERY  NAMEj 
(DEPARTMENT) 

512 

1 1 

Pleader  block 

64 

13 

Key  block  for  DEPARTMENT 

8*512 

14-18, 

20,21,23 

Records  available  for  SSN's 
of  category  QUERY  NAME-> 
(ORC.CODE) 

2*512 

19,22 

Header  blocks 

64 

24 

Key  block  forORGCODE 

8*512 

25-31.33 

Records  available  for  SSN's  of 

category  QUKRY  NAMH^  ( AGH) 
Header  block 


.4 


512 


32 


r 

I 


Number  of 
Words 

Record 

Number 

Variable 

Name 

Description 
of  Variable 

(>4 

34 

Key  block  for  A(ih 

8*512 

35-41,43 

Records  available  for  SSN's 
of  category  QUl-.RY  NAMI-4 
(LKNCTH) 

512 

42 

Header  block 

64 

44 

Key  block  for  Ll.NdTH 

8*512 

45-51,53 

Records  available  for  SSN’s  of 
category  OUhRY  NAMI.5  (SI  X 

512 

52 

Header  block 

64 

54 

Key  block  for  Sl-.X 

8*512 

55-61,63 

Records  available  for  SSN’s 
of  category  QUKRY  NAMH^^ 
(SC'HKDULi;) 

512 

62 

Header  block 

64 

64 

Key  block  for  SCHhDULH 

8*512 

65-71,73 

Records  available  for  SSN’s 
of  category  QUERY  NAME-y 
(PAYPLANCOD) 

512 

72 

Header  block 

64 

74 

Key  block  for  PAYPLANCOD 

8*512 

75-81,83 

Records  available  for  SSN’s 
of  category  QUERY  NAMEj^ 
(SERIES) 

512 

82 

Header  block 

64 

84 

Key  block  for  SERIES 

8*512 

85-91,93 

Records  ayailable  for  SSN’s 
of  category  QUERY  NAMEy 
(GRADE) 

512 

92 

Header  block 

64 

94 

Key  block  for  GRADE 

8*512 

95-101,103 

Records  available  for  SSN’s 
of  category  QUERY  NAME,o 
(RQLLSTATUS) 

512 

102 

Header  block 

64 

104 

Key  block  for  RQLLSTATUS 

8*512 

105-1  11,1 13 

Records  available  for  SSN’s 
of  category  QUERY  NAME]  j 
(CEILINGCOD) 

512 

112 

Header  block 

64 

1 14 

Key  block  for  CEILINGCOD 

23 


Niiinhcr  of 
Words 


Record 

Number 


Vuriable 

Name 


l)eseri|ition 
of  Variable 


S*5I2 

1 15-121,125 

Records  available  for  SSN’s 
of  category  QUE.RY  NAMEp 
(SUPERVISOR) 

512 

122 

Header  block 

()4 

124 

Key  block  for  SUPERVISOR 

H*512 

125-131,133 

Records  available  for  SSN’s 
of  category  QUERY  NA.MIip 
(PROETODE) 

512 

132 

Header  block 

64 

134 

Key  block  for  PROECODE 

8*512 

135-141,143 

Records  available  for  SSN’s 
of  category  QUERY  NAMEj^ 
(LOCATION) 

512 

142 

Header  block 

64 

144 

Key  block  for  LOCATION 

8*512 

145-151.153 

Records  available  for  SSN’s  of 
category  QUERY  NAMEp 
(XYZ) 

512 

152 

Header  block 

64 

154 

Key  block  for  XYZ 

8*512 

155-161,163 

Records  available  for  SSN's 
of  category  QUERY  NAMEp 
(PROMO-TYPE) 

512 

162 

Header  block 

64 

164 

Key  block  for  PROMO-TYPE 

8*512 

165-171,173 

Records  available  for  SSN’s 
of  category  QUER\  N.AMEp 
(EDUCLEVEL) 

512 

172 

Header  block 

64 

174 

Key  block  for  EDUCLEVEL 

Category  Definitions 

Not  all  data  fields  available  on  the  employee  file  are  inverted.  Moreover,  the  number  of 
categories  defined  may  be  reduced  or  increased  subject  to  the  limitations  of  the  QUERY 
program! s).  The  following  categories  are  currently  in  use  at  DTNSRDC. 
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Nainc  of  Category 
DFFARrMliNl 


Basis  of  Category 


ORtiCODh 
AGH 
LHNGTH 
ShX 

SCHHDULH 

PAYPLANCOD 
SF.RIFS 
GRADE 
ROLLSTATUS 

1 

CEILINGCOD 
SUPERVISOR 

! 

PROFCODE 
LOCATION 
XYZ 

PROMO-TYPE 
EDUCLEVEL 


Department  wliere  employed 
Organization  where  employed 
Eaiiployee  age,  in  years 
Length  of  government  service 
Sex:  1 , male;  2,  female 

Type  of  work  schedule: 

1,  full-time 

2,  part-time 

3,  intermittent 

Pay  plan 

Work  series  or  occupation 
Employee  grade  (two-digit) 

Status  of  employee  on  rolls:  1,  on;  2,  off;  3,  LWOP; 

4,  military 

Ceiling  of  employee  position;  ETC,  TPT.  etc. 

Supervisory  status  of  employee:  1 , supervisor; 

2,  non-supervisor 

Professional  status 

Physical  location  of  employee 

(Category  not  yet  defined) 

Type  of  promotion  received 

Educational  level  attained 


PRODUCTION  OF  BATCH  OUTPUT 
General  Description 

The  QUERY  system  enables  the  user  to  obtain  his  output  either  as  a batch-run  printout  or 
as  a teletype  printout.  The  production  of  batch  output  requires  the  use  of  an  initialization  pro- 
gram, subroutines  to  formulate  names  for  data  files  generated  by  QUERY,  and  programs  to 
submit  jobs  to  the  batch  queue.  At  some  time  subsequent  to  the  use  of  QUERY,  the  programs 
REPORT.  SORTREP,  and  TABLE  are  used  to  produce  the  desired  output  from  the  generated 
input  files. 
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The  BTCH  program  (QUKRY  Overlay  ( 1 1,0))  is  always  called  from  the  main  program 
(Overlay  (0,0))  when  QUERY  begins  executing.  BTCH  retrieves  and  reformats  certain  param- 
eters which  are  needed  to  complete  images  of  job  control  cards.  Since  the  QUERY  system  is 
used  by  a number  of  different  activities,  each  with  its  own  CABMIS  data  base,  the  parameters 
retrieved  (from  the  COMRADE  Executive)  by  BTCH  are  unique  to  a particular  activity’s  data 
base.  BTCH  sets  up  array  lARRAY  which  includes  the  Job  order  number  for  the  batch  job,  the 
permanent  file  name  (PEN)  of  the  employee  data  file,  and  passwords  necessary  to  access  this 
file.  The  array  lARRAY  may  be  used  for  all  three  types  of  batch  output,  and  is  stored  in  a 
COMMON  block;  the  BTCH  program  need  not  be  called  again. 

In  the  programs  DSOVL  (Overlay  (3,0))  and  TBOVL  (Overlay  (6,0)),  the  user  at  the  TTY 
terminal  is  asked  where  he  would  like  his  output  printed.  If  he  answers  HERE,  output  is  directed 
to  the  teleprinter;  if  THERE,  output  is  produced  by  a batch  run.  When  batch  output  is  requested 
by  any  one  of  the  three  programs  a subroutine  is  called  to  generate  a unique  name  tor  the  input 
data  file.  The  name,  consisting  in  part  of  the  cui.'ent  date  and  time,  forms  a PEN  tor  the  data 
input  file  used  when  the  file  is  attached  during  a run  of  the  batch  program.  (When  created  by 
QUERY,  the  local  file  name  of  this  file  is  TAPE3.)  The  data  input  file  is  generated  by  a subrou- 
tine within  DSOVL,  SROVL,  or  TBOVL. 

As  soon  as  the  data  file  is  complete  another  primary  overlay  (REPBTCH,  SRTBTCH,  or 
TBLBTCH,  respectively)  is  called  in  to  rewind,  catalog,  and  unload  the  file.  The  batch  control 
card  record  is  completed,  written  to  the  batch  input  file,  and  submitted  to  the  batch  input 
stream.  The  user  must  decide  whether  his  printout  will  be  produced  at  the  central  computer 
site  or  at  some  remote  user  tenninal. 

Options  Available 

• The  REPORT  Program 

The  REPORT  program  is  located  on  a permanent  file  on  CDC  6700  computer  disk  storage. 

It  can  generate  a “report”  consisting  of  tabulated  information  about  a set  of  employees  either  on 
a central  site  printer  or  on  a remote  user  terminal.  The  set  of  employees  to  be  reported  on  and 
the  format  to  be  used  are  specified  by  the  user  at  a teletype  terminal  during  the  execution  of 
OVERLAY  (3,0)  of  the  QUERY  system.  Data  generated  by  QUERY  for  the  REPORT  program 
are  written  to  a disk  file  (LFN=TAPE3)  and  accessed  by  means  of  ordinary  FORTRAN  read 
statements.  The  employee  file  (LFN=EMPDATA)  is  referenced  by  indexed  sequential  (IS) 
calls.  The  REPORT  program  itself  is  attached  under  the  local  file  name  (LFN)  RPT.  This  pro- 
gram does  not  access  the  inverted  file. 

The  REPORT  program  reads  the  display  format  from  the  TAPEl  file  which  consists  ot  a 
number  of  predefined  fields  (for  editing  purposes)  and  social  security  numbers  (SSN's).  The 
SSN’s  are  read,  one  at  a time,  into  the  location  TAG,  and  the  corresponding  63-word  employee 
records  are  read  from  EMPDATA.  To  produce  output  (on  TAPE3),  the  subroutine  PRINTER  is 
called.  PRINTER  calls  upon  the  subroutine  FETCH  to  extract  certain  fields  of  data  from  each 
employee  record,  according  to  the  display  format  designated,  and  then  it  prints  out  data,  with 
or  without  headings,  at  the  central  site  printer  or  a remote  user  terminal,  whichever  has  been 
specified,  (FETCH  and  PRINTER  are  subroutines  of  the  RF.PORT  program.) 
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riic  entire  Rl^POR  P program  is  eomparable  to  that  part  ot'OVKRLAY  (3,0)  (program 
DSOVL  of  the  t}UhRY  system)  whieh  produees  output  on  tlie  teletype  printer.  I he  oireration 
of  RFPORT  is  represented  by  the  block  diagram  of  Figure  4. 


Figure  4 — Operation  of  Program  RFPORT 


• The  SORTRFP  Program 

The  SORTRFP  program  (Figure  5)  is  used  to  produce  a sorted  list  (or  report)  of  a set  ol 
etnployees  by  means  of  a batch  run,  each  employee  designated  in  a data  file  by  his  SSN. 

The  SORTRFP  program  is  stored  as  a permanent  file  on  (>700  computer  disk  storage,  and 
is  attached  during  a run  under  the  local  file  name  (LF'N)  SRT.  Input  to  the  program  is  generated 
by  the  user  at  the  teletype  terminal  during  the  execution  of  OVFRLAY  (4.0).  The  input-con- 
sisting of  the  SSN’s  of  all  employees  to  be  represented  on  the  list,  a display  format  to  indicate 
the  fields  to  be  displayed,  and  a sort  definition  that  specifies  which  fields  will  he  sorted-is  read 
from  TAPFl  by  the  progiam  SRT,  using  ordinary  FORTRAN  read  statements.  A display  delini- 
tion  consists  of  five  items  (words)  of  data  (page  20)  which  enable  the  program  to  retrieve  specific 
data  fields  from  the  file.  The  data  retrieved  are  used  to  format  print  rect)iils  which  constitute  the 
output  for  selected  employees.  The  sort  definition  is  a slightly  modified  version  of  a display 
format  in  that  the  fifth  word  contains  an  alphanumeric  A which  indicates  an  ascending  sort. 
Within  SORTRFP,  the  sort  definition  is  slightly  modified;  the  number  of  the  first  byte  (or 
character)  in  the  sort  field  is  placed  in  the  second  word  ol'  the  format.  T he  residting  sort  delini- 
tion  has  the  form  shown  on  page  2^). 


27 


The  following  diagram  indieatw  the  actions  performed  during  a sort: 


SMCON7 

System  SORT/MERGE 


GETDATA 


PUTDATA 


Fetches  Employee 
Data 


Formats  and  prints 
employee  data  on  TAPE2 


Figure  5 - Operation  of  Program  SOR  FRI  P 
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\V\)rI 


Contents 


I'xainple 


1 Name  ol  the  I'ieki  NAMI’ 

2 Niimlier  of  tlie  first  byte  or  diaraeter  of  the  sort 
tleki 


3 Starting  eliaracter, 'starting  word 

4 Number  of  characters  in  format 

5 Indicator  of  ascending  or  descending  order  of  sort  AA A 

It  more  tlian  one  sort  definition  is  specified  in  a sort  job.  each  field  is  sorted  successively.  In 
this  way,  “ties”  that  occur  when  two  or  more  employees  liave  the  same  value  for  a particular 
field  can  be  resolved. 

rite  employee  file,  which  contains  a record  of  data  for  every  employee,  is  attached  to  the 
batch  Job  as  l-.MPDATA.  b'or  each  SSN  contained  in  the  input  a corresponding  data  record  is 
retrieved,  using  calls  to  the  IS  subroutines  (Appendix  D).  l-rom  each  63-word  data  block,  the 
desired  information  is  extracted  and  passed  to  the  subprogram  SORI'hR.  The  6700  SORT 
Mb.RCil-;  system  used  by  SORTRlrP  does  the  actual  work  of  sorting.  The  SORTRl:P  program 
calls  upon  the  CUTDATA  subroutine  to  access  data,  and  the  PUTD.ATA  subroutine  to  write  out 
sorted  data.  The  subroutines  PRINTTR,  IIHADHR,  and  TPT('II  control  the  output  process. 
Program  SORT'RFP  does  not  access  the  inverted  file. 

• The  TAB LK  Program 

The  TABLF  program  (Figure  6)  is  used  to  produce  a statistical  table  that  relates  two  inverted 
categories  of  QUF.RY.  File  input  data  file  for  tlie  program  is  generated  in  OVFIRLAY  (6.0)  of 
(3L'FRY,  and  is  attached  to  and  read  by  program  TABLF  as  TAPF2.  Program  TABLIv  itself  is 
attached  to  the  Job  under  the  local  file  name  I'BL.  Since  this  program  deals  with  categories  of 
employees  rather  than  individual  employees,  the  employee  data  file  and  indexed  sequential  sub- 
routines are  not  used. 

The  program  operates  in  the  same  way  as  some  parts  of  the  (6,0)  overlay  of  the  QUliRY 
program.  The  table  printed  out  indicates  the  numbers  of  elements  (employees)  having  the  header 
values  of  both  the  first  and  the  second  categories.  Fhus,  a matrix  of  values  is  produced  in  which 
the  columns  represent  the  headers  of  one  category  and  the  rows  representing  the  headers  of 
the  other. 


The  input  data  consists  of  ( I ) header  blocks  for  each  of  two  categories,  ( 2)  key  blocks,  and 
(3)  the  names  of  the  two  categories  to  be  tabulated.  The  final  results  of  the  TABLF  program 
are  written  on  file  1APF6.  or  they  are  diverted  to  a user  terminal. 
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I'igurc  ()  — Operation  of  Program  I'ABLK 

EXAMPLES  OF  USE  OF  THE  QUERY  SYSTEM 

I'ollowing  are  several  examples  which  illustrate  the  OL'hRY  capabilities  and  the  use  of  the 
batch  programs  RHI’ORT.  SOR  I Rl:P,  and  TAIiLK,  Since  the  programs  and  subroutines  can  be 
used  in  numerous  combinations,  these  examples  are  by  no  means  exhaustive. 

Example  I — Use  of  the  GROUP  command  and  the  display  directive: 

The  following  example  illustrates  how  sets  of  certain  employees  are  selected,  each  addi- 
tional category  further  restricting  the  set.  The  resultant  set  is  displayed  on  the  teletype  printer 
in  the  NAME  format  (serial  number  and  name  of  employee). 

COMMAND. ’-GROUP,  DEPARTMENT,  18,  ACiE,  25,  GRADE.  1 1,  SEX.  I 
XXX  ELEMENTS  WERE  FOUND 
YY  ELEMENTS  WERE  FOUND 
ZZ  ELEMENTS  WERE  FOUND 
WW  ELEMENTS  WERE  FOUND 
NEXT7-DISPLAY,  HERE,  NAME 
xxxx  nnn  . . . n 

xxxx  nnn  . . . p 


30 


Since  the  set  contains  only  25-year-oltls  to  begin  with,  a query  tor  26-year-olcis  would  result  in 
the  following  exchange: 


NhXT’=A(;i;.  2b 

0 i;li:mi;nts  whRi;  found 

NO  HLFMFNTS  FOUND 
COMMAND’  SrOP 

By  entering  the  word  STOP  instead  of  another  connnand  name,  the  QUFRY  program  is  told 
to  print  out  the  following  information  and  then  terminate; 

SFSSION  TFRMINAri  D 
KLAPSFD  CP  TlMli  = xx.xxxx 
CONNFTT  T1MF:  = x.xx.xx 
STOP 

Fxample  2 - FTror  messages  and  the  response  to  a request  for  help: 

COMMAND'.’-AC.H,  21 

ACiH  IS  AN  INVALID  COMMAND 

In  this  example,  the  command  name  was  omitted,  so  the  system  interpreted  the  word  A(>Fi  as  a 
command.  Since  only  the  name  CiROUP  or  COMBINE  would  have  been  acceptable,  the  word 
AGE  caused  an  error  message  to  be  printed.  In  the  exchange 

COMMAND'.’-GROUP,  AGE2 

AGE2  INVAEID  CATEGORY  OR  DIRECTIVE 

the  command  name  GROUP  is  acceptable  but  the  AGE2  is  not,  since  AGE2  is  neither  a category 
nor  a directive.  In  the  terminal  exchange 

NEXT?- AGE,  21.  DEPARTMNT,  18 

AGE  VALUE  DEPARTMNT  IS  INCORRECT 

NEIGHBORING  VALUES  ARE  16  AND  16 

ENTER  “IGNORE,"  “HELP,"  OR  NEW  VALUE(s)  - HELP 

the  designation  DEPARMNT  (a  misspelling  of  DEPARTMFiNT)  is  neither  a value  (an  age)  for  the 
categor>'  AGE  nor  another  category  name,  so  an  error  message  is  printed  out.  A request  for  help 
at  this  juncture  would  cause  the  subroutines  VALHELP  and  SPCHELP  to  be  called  from  the 
subroutine  VALUE  within  the  program  VLOVL,  and  the  following  printout  to  be  provided: 
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VVOL'l.O  YOU  LlKi;  lO  KNOW  HUS  C’AUX'.ORY'S  VALU1.S7-VI;S 


1 lU  Ki:  ARl  5b  VAl.Ul  S THA  I CAN  BU  SI>1(  11  11  1)  1 OR  ('AHOORY  A(ii; 

nil  NUMBI  R 1 OLLOVVlNd  Till:  VALUi:  IS  Till-:  COUNT  OI-  I Ll  MI  NTS  IN  Till; 

CAlT;(iORY  IIAVINO  [111  DISRl.AYI  I)  VALUT 

WOULD  YOU  LlKi;  R)  HAVL  ALL  THi;  VALULS  DISPLAYLD  NO 

HOW  MANY  VALUi;S  WOULD  YOU  LlKi;  TO  SLL  DISPLAYLD  10 

HOW  MANY  VALUi  S WOULD  YOU  LIKi:  TO  SKIP  BHFORL  THli  LIRST  ONL 

IS  DISPLAYLD  0 

HOW  MANY  VALULS  WOULD  YOU  LIKL  SKIPPLD  BLl ORl  IHL  NLXT  VALUL 

IS  displayl:d-o 

VALUi;S  AKL: 


lb 

32 

17 

9b 

18 

121 

19 

135 

20 

109 

21 

92 

^ -> 

120 

23 

112 

24 

117 

25 

1 14 

WOULD  YOU  LlKi;  TO  KNOW  HOW  TO  SPLCILY  THi;  VALULS 
THAT  DLFINL  A CATFOORY-NO 

LNTLR  “IGNORL”  OR  N£;W  VALUL(s)  20 
322  LLLMLNTS  WLRL  FOUND 

NLXT?  ABORT 

The  next-to-last  statement  originates  within  the  subroutine  VALUL.  It  indicates  the  total  num- 
ber of  employees  who  are  2 1 . 20.  or  1 8. 


i 


I 
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I xample  3 Use  ol  Ilic  DlSl’l.AY  cominaml  to  ilireet  output  to  the  butch  printer; 

Tlie  intormation 

roMMANl)'.’  (IKOUP,  KOLLSTA  TUS.  l.ShX,  1 . Dhl'AR  TMliNT,  18 

results  in  the  production  of  a tile  of  SSN’s  of  all  employees  who  are  ( 1 ) on  the  rolls,  ( 2 ) male, 
and  ( 3 ) employed  in  Department  18.  The  entry 

NIXr.*  DISPLAY 

causes  control  to  be  transferred  to  the  DISPLAY'  program  where  the  following  dialog  is 
initiated: 

WOULD  YOU  LIKL  1 HL  DATA  DISPLAYLD  HLRL7-NO 
WOULD  YOU  LIKH  I1LADINU.S7-YLS 
LNTLR  DISPLAY  TYPL  NAML 

•At  this  point,  a job  is  automatically  set  up  and  SLibmitted  to  the  batch  queue.  Information 
written  to  the  file  TAPH3  includes  an  indication  of  the  number  of  fields  to  be  processed,  the 
heading  ijidicator,  the  display  ilefinitioii  for  each  field,  and  the  social  security  numbers  (SSN) 
selected.  The  fonmdated  batch  job  is  submitted  to  a batch  printer  or  a user  terminal  by  program 
R1  PBLCH  which  uses  parameters  initialized  in  program  B l'CIl  to  formulate  a control  card 
record.  The  batch  run  itseP'  uses  the  program  RL  POR  T.  After  the  Job  is  run,  output  is  produced 
in  the  following  format,  similar  to  that  used  at  the  TTY: 


SHRI 

NAML 

xxxx 

XXX  . . 

. XX 

xxxx 

XXX  . . 

. XX 

xxxx 

XXX  • • 

. XX 

The  following  instruction 
NLXT’  ABORT 

results  in  an  exit  from  the  DSOV'L  overlay,  and  a return  to  the  command  node. 


Lxample  4 How  to  define  and  use  a special  display  format. 

COMMAND'.’  ROLLSTATU.S.1,  DLPARTMI  NT,  18  SLX,  2 
xxxx  LLLMHNTS  WLRL  LOUND 

vvv  I LLMI  NTS  WLRL  LOUND 
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zz 


liLHMHNTS  Wl-Rl-:  lOUNl) 


Ni;XT?- DISPLAY 

WOULD  YOU  LIKL  TML  DATA  DISPLAYI  D 111  Rl..’  M S 
WOULD  YOU  LIKL  I1LADINOS7-YLS 
LNTLR  DISPLAY  TYPL  DLLINL 

The  following  statements  indicate  that  the  set  of  zz  elements  is  to  be  displayed  in  a lormat  to 
be  defined  by  the  user: 

LNTLR  DATA  LTLLD(S)  OR  “STOP”-SS,  NAML.  TU  LL 

LNTLR  DATA  LTLLD(S)  OR  “STOP’'-BIRTll-DATL.  llOML-CTrY.  STOP 

LNTLR  DISPLAY  DLLTNITION  SAVL  NAML-XYZ 

The  table  produced  under  these  specifications  will  have  an  entry  in  each  lield  tor  each  ol  the  zz 
employees  in  the  set,  as  indicated  following: 


ss 

NAME 

T BIRTH 

HOME-CITY 

(1) 

X — 

9 — z 

X 28 X 

X xxxxx 

X 15 X 

(zz) 

X — 

9 X 

X 28  — X 

X xxxxx 

X 15 — X 

Lxample  5 - Use  of  the  LLLMLNT  command: 

COMMAND7-LLLMLNT 

WOULD  YOU  LIKE  THE  DATA  DISPLAYED  HERE? -YES 
WOULD  YOU  LIKL  I1LAD1NGS7-YLS 
ENTER  DISPLAY  TYPE-NAME 
ENTER  ELEMliNT  NAME  xxxxxxxxxx 

The  “element  name”  requested  is  the  social  security  number  of  the  employee  about  whom 
information  is  to  be  furnished.  The  printout  provided  will  appear  as  tollows: 

SERI  NAME 

xxxx  X — 28 — X 

New  element  names  are  entered,  one  at  a time,  in  response  to  the  recpiest  for  an  element  name, 
until  all  names  have  been  entered.  The  user  then  responds 
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KNTKR  KLI  MKNT  NAMl-  ABORl 


wliicli  will  cause  the  printout 

hLKMMN T ABORTl  l) 

COMMANl)?- 

to  be  produced,  and  control  to  be  returned  to  the  command  mode. 

Hxamplc*  b - Use  of  the  SOR  F command: 

In  this  example,  a data  tile  is  generated,  saved,  and  subseciuently  used  by  the  batch  pro- 
gram SORTRHP.  The  QUHRY  program  SOR  F command  causes  batch  output  to  be  produced. 
The  command  input 

COMMAND7-GROUP,  ROLLSTATUS,  1,  SH.X.  2.  DI  PAR T.VIFNT.  18 

causes  the  SSN’s  of  all  those  women  who  are  actively  employed  with  Department  18  (CMLI)) 
to  be  printed  out.  The  entry 

NHXT?-= 

causes  the  SSN’s  of  the  selected  employees  to  be  saved.  The  entering  of  the  word  111  to  the 
request 

HNTKR  CATKCiORY  SAVE  NAMH- 

indicatcs  that  the  saved  category  is  to  be  named  HI.  The  following  command  entry 
COMMAND7-SORT 

causes  control  to  be  transferred  to  the  SORT  program  of  the  QUHRY  system.  The  dialogue 
CATFGORY  TO  BF  SORTFD7-HI 

WOULD  YOU  LIKF  HFADINGS  ON  THF  INFORMATlON-YES 

. FNTFR  DISPLAY  TYPF-NAMF 

's 

will  cause  the  items  in  the  HI  category  to  be  sorted  and  displayed  under  the  column  headings 
designated  in  the  display  format  NAMF  which  consists  of  the  serial  number  and  name  of  each 
employee.  In  the  following  exchange 

FNTFR  SORT  TYPF-ALPIIA 

the  word  ALPHA  refers  to  a “built  in”  sort  format  which  consists  of  one  field  only.  NAMF. 

The  name  ALPHA  will  cause  the  names  of  those  employees  whose  SSN’s  were  included  in  the 
designated  category  to  be  alphabetically  arranged.  All  sorting  and  production  of  output  is 
necessarily  done  in  a batch  job  (program  SOR  FRFP)  that  has  been  set  up  by  the  programs  BTCH 
and  SR  FBTCH.  The  output  is  disposed  of  as  specified  by  the  user  in  his  answer  to  a query  gen- 
erated by  the  program  SRTBTCH: 
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worn)  YOU  I IKI  YOl'K  OllTPU  l SI  N 1 TO  Till  Cl  NIKAL 
Sin.  OR  lO  YOL'R  K1  MOTT  ID’  11  YOU  I’Kl  1 1 R 


CI  N 1 RAT  Sirr.  I’l  I ASl  l YIM  IN  "Cl  NTRAL.” 

1 OR  R1  MOTi;  11).  TYl’L  IN  YOUR  TllRl.H  Ll  TTl  R 
11)  DisiosrnoN 

After  the  job  has  been  submitted  to  the  batch  queue,  control  is  returned  to  tlie  eoininand 
mode. 

li.xample  7 — Use  of  the  QUTRY  sorting  facility: 

First,  a set  of  employees  is  generated  at  the  terminal,  the  set  then  cataloged  under  the  name 
•ABC.  Then  another  command  is  requested.  The  following  exchange 

CO.MMAND7-SORT,  ABC,  HHADINC.,  DHFlNt 

indicates  that  the  category  ABC  is  to  be  sorted  and  the  results  printed  out  under  the  headings 
designated  by  a defined  format  ias  opposed  to  a built-in  format); 

FNTHR  DATA  tTHLD(S)  OR  "STOP”-NAMF,  SS,  BIRTH-DATF,  C.RADF,  STOP 

FNTFR  DISPLAY  DEFINITION  SAVE  NAME-.XYZ 

The  format  defined,  stored  unaer  the  identifying  name  XYZ,  consists  of  the  employee  name. 
SSN.  birth-date,  and  grade.  The  following  information  is  tJien  entered: 

ENTER  SORT  TYPF-DEF INE 

ENTER  SORl  FIELD(S)  OR  “STOP”  BIRTH-DATE 

ENTF;R  "A”  OR  "D"  FOR  ASCENDING  OR  Dl  SCFiNDlNG  SOR  l A 

ENTl  R SORT  1 lELD(S)  OR  "STOP'-GRADE 

I N 1 1 R "A”  OR  T)"  FOR  ASCENDING  OR  DESCENDING  SOR  l A 

ENTl  R SORT  EIFED(S)  OR  “STOP"-STOP 

ENTl  R SORT  DEFINITION  SAVE  NAME-Clll 

•A  disk  file  is  generated  consisting  of  the  display  format,  the  sort  format,  and  the  social  security 
numbers  the  elements  in  the  category.  batch  job  is  set  up  with  programs  B1  (11  and 
SR  1 BK  II.  The  data  file  is  submitted  as  input  to  the  batch  program,  SORFRl  P,  which  will 
sort  the  SSN's  and  prepare  a table  of  sorted  data.  These  data  are  sorted  first  by  birth-ilate,  and 
then,  within  each  birth-date,  by  grade  and  the  results  are  printed  out.  The  SOR  FRI  P output 
will  take  the  follov. mg  form  (see  Example  (6)): 


L 
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C8) X X (^>) X xxxxx 


X (28) X X (9) X xxxxx  xx 

Wlion  the  sort  has  been  completed,  control  is  returned  to  the  command  mode. 

hxample  8 Use  of  the  COMPUTH  directive; 

Output  produced  as  a result  of  this  operation  is  always  produced  on-line  (on  the  TTY 
printer).  The  category  to  be  operated  upon  must  have  been  previously  defined.  The  QUhRY 
instructions 

COMMAND’  GROUP.  ROLLSTATUS.  1,SHX.  1 . DTPARTMHNT.  18 
XXXX  HLKMHNTS  WHRT  l OUND 
YYYY  HLKMHNTS  WHRH  HOUND 
ZZ  HLKMHNTS  WHRH  HOUND 

NHXT?-= 

HNTHR  CATHXiORY  SAVH  NAMH-MHN 

The  preceding  QUHRY  instructions  cause  the  formation  of  a category  made  up  of  the  SSN's 
of  all  male  employees  on  the  rolls  of  Department  1 8.  The  category  is  cataloged  under  the  name 
MHN. 

NH  XT? -COMPUTE 

ENTER  NUMERIC  CATHC.ORY  NAME  (iRADH 

Computations  performed  on  the  category  MHN  will  result  in  the  lollowing  printouts. 

NUMERIC  CATEGORY  GRADE  HAS  ZZ  ELEMENTS 

THE  SUM  OH  THE  VALUES  OI-  THESE  ELEMENT  IS  SSS 

THE  AVERAGE  OF  THESE  VALUES  OVH-R  THE  ELEMI;NTS  IS  AA.AAA 

The  average  grade  among  male  employees  of  Department  18  is  AA.AAA.  It  n represents  the 
number  of  employees  (elements)  in  the  set.  and  V|.|  indicates  the  value  ol  a particular  element. 

n 

then  the  computed  average  is(XVn)/n. 


I'xamplc  Use  ot  the  I'ABl.U  eommaiui; 

The  exeliaiifie 

UOMMAND?-TABLi; 

causes  control  to  transfer  to  the  TABLl:  program  in  the  I BOVL  overlay.  I he  exchange 

HNTUR  “MHRH”  OR  “TlllRh”  1 OR  TABU.  OUTPUl  1)1  SI  INA I ION  III!  Rl 

causes  the  output  to  be  produced  by  a batch  run.  The  responses  provided  to  the  following 
requests 


hNTHR  CATUiORY  NAMT  1 OR  ONh  f OMPONl  NT  Of  fill  I ABU  SI  \ 
TNTFR  CATfXlORY  NAMf.  FOR  ONF  ('O.MFOM.NT  Of  fill.  fABFI  (.RADI 
indicate  that  the  table  will  denote  two  items  of  information,  sex  and  grade. 

The  batch  job  is  set  up  by  the  QUflRN'  programs  BTC'H  and  f BFB  f(  H.  Ikciuse  the 
output  is  to  be  directed  away  from  the  TTY  printer,  the  following  dialog  is  initiated: 

WOUFD  YOU  LIKF  YOUR  OUTPUT  SFNT  TO 

THF  CFNTRAL  SITF  OR  TO  YOUR  RFMOTF  ID’ 

IF  YOU  PRFFFR  CFNTRAL  SITF,  PLFASF 

TYPE  IN  “CFNTRAL.”  FOR  RFMOTF  ID.  TYPE  IN 

DISPOSITION  CENTRAL 

The  Job  is  submitted  to  the  batch  queue  from  the  TTV'  terminal  and  is  executerl  by  a control 
card  record  generated  by  TBLBTCH  (the  batch  program  is  called  1 .ABU  I.  Control  within 
QUERY  is  then  returned  to  the  Command  Mode.  The  output  takes  the  form  indicated  in 
the  following  table. 
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M’l’l  M)l\  A 

I l.OU  l)lA(.KA\tS()l  nil  (,)l'l  R\  SVSll  M 

I hc  iluii-rams  that  lollow  illuNtiato  llu.'  How  ol  control  tliroiiyh  tlio  programs  and  siibrou- 
tiiK's  ol  iIk'  <,)l-d  lO  ^\^tl.'m.  Names  ol  routines  aiul  ilireet  •.ailing  relationshi|is  between  them 
are  represented,  although  eodmg  detail  ol  individual  routines  has  been  omitted.  The  t'loweharts 
ol  \ppendis  I |iiov  iile  greatei  detail 

lo  simphlv  the  elurre  ol  ilrawmg  these  overlay  diagrams,  reterenees  to  eertain  I OKI  K.AN 
system  subroutines  sueh  as  AND.  OK.  MOD.  and  Sllll  I useil  in  the  program  have  sometimes 
been  omitted,  even  though  they  are  meluded  m the  eoding. 

In  the  overlay  s ( 1 1 .0)  - ( I 2.0t,  only  the  subroutines  ( llOK'l  and  LOCI-  have  been  eoded 
lor  the  (Jl'l  K't  program,  the  others  are  taken  trom  the  ('0\1K,’\DI  - library  . Uriel  deserip- 
tions  of  some  ol  these  subroutines  are  ineluiied  m .Appendix  ('. 

Superseripis  useil  throughout  the  How  diagrams  have  the  lollowmg  eonnolations: 

* lOKl  K.-AN  mass  storage  subroutine 
**  Indexed  seipiential  ( IS)  siibniutine 
+ Program  or  subroutine  expaiulevl  on  subseiiuent  pages 
A 1 OK  I K.AN  system  subroutine 
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APPENDIX  B 

DEFINITIONS  OF  COMMON  VARIABLES 
PROGRAM  QUERY 


NAMED  BLOCK  COMMON 


BTCHDTA 

IFDB(7) 

COMMAND 

CSTRT 

CURRENT 

DISP 

DISDEF 

NUMDEF 

HERE 

HEADING 

NUMFLD 

LINECNT 

FREEAB 

FREEA 

FREEB 

FREEPG 

TOP 

GCV 

KBA 

KBB 

KBR 

COUNT 

TYPE 


Constants  retrieved  from  COMRADE  storage  and  used  as 
parameters  on  certain  of  the  control  cards  used  for  a 
QUERY  batch  run. 


The  starting  node  (or  index)  for  a series  of  input  words. 
The  index  to  the  word  of  input  being  currently  examined. 


Array  which  contains  data  for  a maximum  of  24  display 
definitions. 

Number  of  defined  display  formats. 

Indicates  whether  output  should  be  sent  to  the  batch 
file  (=3)  or  to  the  TTY  (=4). 

Logical  variable  indicates  whether  a standard  heading  (=.T.) 
or  no  heading  at  all  (=.F.)  is  desired  on  the  printout. 

The  number  of  elements  in  the  record  corresponding  to 
DISDEF  (1,1). 

The  number  of  lines  generated  for  output  by  the  DISPLAY 
program. 


Specifies  availability  of  core  storage  for  category  A. 
Specifies  availability  of  core  storage  for  category  B. 


Number  of  the  next  available  record. 


The  key  block  for  category  A. 

The  key  block  for  category  B. 

A temporary  key  block. 

The  number  of  elements  in  a constructed  category. 

A Hollerith  variable  which  tells  OVERLAY  (3,0)  to  display 
data  for  one  employee  (=7HELEMENT)  or  more  than  one 
employee  (=7HDISPLAY) . 
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1 


CATEG 

FILE 

R,S 

ERR 

IN 

GRPSTK 

STACKGR 

STACKTP 

FIRST 

HLP 

ISUB 


NEWARR 

lARRAY 

READBUF* 

BRF 

NME 

DTL 

TITLE 

NUMTITLE 

IBF 


A variable  which  holds  the  contents  of  the  current  node. 
Number  of  a file  which  contains  category  data. 

Indices  used  to  reference  data. 

Error  indicator;  logical  variable  set  to  .TRUE,  when  no 
values  entered. 

Record  number  of  key  block 


Storage  area  (stack)  for  holding  GROUP  and  COMBINE 
commands;  as  many  as  16  may  be  entered. 

Index  which  indicates  a particular  element  of  array 
STACKGR. 

A logical  variable  which  indicates  whether  or  not  a 
category  has  been  entered. 

Indicator  that  specifies  which  of  the  HELP  subroutines 
may  be  invoked  at  that  point  within  the  main  overlay  of 
QUERY. 


Used  by  the  subroutine  THERE  for  setting  up  control 
cards  for  a batch  run. 


The  array  of  element  names  in  the  predefined  format, 
BRIEF. 

The  array  of  element  names  in  the  predefined  format, 
NAME . 

The  array  of  element  names  in  the  predefined  format, 
DETAIL. 

The  array  of  the  names  of  the  three  predefined  formats. 

The  array  of  the  numbers  of  elements  in  each  of  the 
predefined  formats. 

Dummy  array  of  94  elements. 


* In  some  subroutines  the  space  occupied  by  this  common  block  is  used  as 
core  for  storing  data  entered  at  the  TTY. 
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SRT 


Array  containing  as  many  as  12  sort  definitions. 
The  total  number  of  sort  definitions. 

The  number  of  elements  in  a sort  definition. 


SRTDEF 

NUMSDEF 

NUMSFLD 

TEMP 


SWAPF 

Array  of  integers  used  for  keeping  track  of  what 
records  have  been  used  for  storage. 

UNNAMED  COMMON 

Location 
(Octal ) 

QUERY 

Variable 

Explanation 

0 

4 

INODE  (4)  1 

NODE  (4,128)  1 

Used  in  selecting  the  proper  (next)  entry 
from  the  input  string. 

1004 

AVAIL 

Contains  the  location  of  the  next  node. 

1005 

2005 

PINDEX  (512)  1 
TINDEX  (513)  ) 

Indices  to  keep  track  of  the  mass  storage 
records  of  two  files. 

3006 

HEADA  (2,256) 

Core  memory  area  for  a header  block  for 
data  of  the  category  A. 

4006 

HEADB  (2,256) 

Core  memory  area  for  a header  block  for 
the  data  of  the  category  B. 

5006 

TBLA  (512) 

Core  memory  area  for  a block  of  data  of 
the  category  A. 

6006 

TBLB  (512) 

Core  memory  area  for  a block  of  data  of 
the  category  B. 

7006 

CNTRL  (3) 

First  data  record  (ID)  read  from  mass 
storage;  generated  by  program  INVERT. 

7011 

KD  (3,64) 

Second  mass  storage  data  record;  contains 
three  key-block  control  words  for  each 
inverted  category  (a  maximum  of  64  such 
categories) . 

7311 

FETARRY  (35) 

The  indexed  sequential  file  Information 
table  (FIT)  in  which  information  relating 
to  file  structure,  status,  and  position  is 
stored;  every  file  has  its  own  FIT, 

7354 

USERREC  (63) 

Core  storage  for  a record  from  the  IS  file 
every  employee  has  his  own  "user  record." 

7453 

TAG 

The  key  to  a user  record,  i.e.,  the  social 

security  number  of  an  employee. 


Notes: 

(1)  Record  2 of  the  inverted  file  contains  three  words  of  data  for  each 
inverted  :ategory  (or  3*CNTRL  (1)  words,  total).  This  array,  KD, 
read  from  disk  by  program  QUERY,  is  computed  in  program  INVERT  as 
array  KCB. 
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(2)  Record  3 of  the  inverted  file,  the  array  of  available  formats 
(5*CNTRL  (2)  words),  is  read  from  disk  into  array  HEADB  by  program 
QUERY.  Core  storage  beginning  with  HEADB  is  called  ED  (5,307)  in 
subroutine  DEFINIT.  In  the  program  INVERT  the  formats  are  called 
FMT. 

(3)  Formats  are  defined  in  the  subroutine  DEFINIT  and  placed  in  array 
FDDEF  (5,100)  after  being  retrieved  from  array  FD.  Array  FDDEF  is 
equivalent  to  array  DEF  in  DEFINIT,  and  DEF,  in  turn,  is  equivalent 
to  array  HEADA.  There  are  approximately  140  formats  in  FD  available 
for  definition  and  use  in  QUERY. 


PROGRAM  REPORT 


NAMED  BLOCK  COMMON 
DISP 

DISDEF  (3,24) 
NUMDEF 
HERE 
HEADING 
NUMFuD 
LINECNT 
READBUF 

LINEOUT  (137) 
FIELD  (137) 


Display  formats. 

Number  of  display  definitions  in  run. 

Destination  of  output. 

Specifies  whether  or  not  headings  will  appear  on  output. 
Number  of  elements  in  record  corresponding  to  DISDEF  (1,1). 
Number  of  lines  to  be  printed  per  page. 

A line  of  output  to  be  generated,  one  character  per  word. 

Data  selected  from  the  user  array  by  means  of  information 
contained  in  the  format  array. 


UNNAMED  COMMON 
Location 


REPORT 


ctal ) 

Variable 

Explanation 

0 

FDDEF  (5,102) 

The  array  of  defined  formats. 

776 

FETARRY  (22) 

The  indexed  sequential  file  information 
table  (FIT);  it  stores  data  relative  to 
file  structure,  status,  and  position. 

1024 

USERREC  (63) 

Core  storage  for  a record  from  the  IS  file 

1123 

BUFLOC  (1300) 

Buffer  area  used  by  the  IS  subroutines. 

3547 

TAG 

The  key  to  a user  record,  i.e.,  the  social 
security  number  of  an  employee. 

3550 

ERRCODE 

Error  code. 

J 


PROGRAM  SORTREP 


NAMED  BLOCK  COMMON 


ARGS 


DISP 


SRT 


IDUM  (2) 

Words  used  by  the  sort/merge  program. 

IN  (100) 

Area  for  the  input  data. 

EOF 

End-of-file  indicator,  set  at  the  end  of  the  ! 

IS  file 

i nformation. 

FDDEF  (5,102) 

Display  definitions. 

FETARRY  (22) 

File  Information  Table  for  IS. 

USERREC  (63) 

An  employee  record. 

BUFLOC  (1300) 

IS  Buffer. 

TAG 

Key  location. 

ERRCODE 

Variable  to  receive  status  code  from  IS. 

SDDEF  (5,100) 

Sort  definitions. 

TOTSIZE 

Total  size  in  characters  of  sort  field(s). 

WRDSIZE 

Number  of  words  represented  by  TOTSIZE. 

DISDEF  (3,24) 

Display  formats. 

NUMDEF 

Number  of  display  definitions  in  this  run. 

HERE 

Specifies  destination  of  output. 

HEADING 

Specifies  whether  or  not  headings  will  appear 

on  output. 

NUMFLD 

Number  of  elements  in  record  corresponding  to 

DISDEF 

(1,1) 

LINECNT 

Number  of  lines  put  out  on  page. 

SRTDEF  (3,12) 

Sort  formats. 

NUMSDEF 

Number  of  sort  definitions. 

NUMSFLD 

Number  of  elements  in  record  corresponding  to 

SRTDEF 

(l.I) 
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PROGRAM  TABLE 


NAMED  BLOCK  COMMON 


READBUF  (occurs  in  Subroutine  TBLCNT) 

SUBTOT  (21)  Sums  of  elements  having  specific  header  values  in  each 
of  two  categories. 


HEADT  (2,21) 
CNT  (20) 

LCNT 

TTL  (20) 

SUM 


The  header  values  for  two  categories. 

(Not  used) 

The  sum  of  subtotals  across  one  row  of  the  table. 
The  sum  of  subtotals  down  one  column  of  the  table. 
The  sum  of  TTL  across  a row. 


UNNAMED  _C  WO N 

Location 
_(J3cUl ) 

0 

1000 

2000 

3000 

4000 

4100 

4300 


TABLE 
Va  r i able 

HEADA  (2,256) 

HEADB  (2,256) 

TBLA  (512) 

TBLB  (512) 

INDEX  (64) 

KB  (64,2) 
CATEG  (2) 


Explanation 

Core  memory  area  for  a header  block  for 
data  of  the  category  A. 

Core  memory  area  for  a header  block  for 
data  of  the  category  B. 

Memory  space  for  a block  of  data  of  the 
category  A. 

Memory  space  for  a block  of  data  of  the 
category  B. 

Array  to  keep  account  of  the  records  of  a 
mass  storage  file. 

The  key  blocks  for  two  categories. 

The  names  of  two  categories. 


PROGRAM  INVERT 


rWMED^  B_Lp^  WMON 


ARGS 

IDUM  (2) 
IN  (100) 
EOF 


Words  used  by  the  sort/merge  program. 

Area  for  the  input  data. 

End-of-file  indicator,  set  at  the  end  of  the  IS  file 
information. 


INIT 


MULT  (3) 
DISP  (3) 
FIRST 
FOR  (5) 


PA  RAM 

TIME 

VARSCAN 

FLDLEN 

SCHAR 

LENS 

SPACE 

COBNAME 

POINTER 

P 

PTR 


FETARRY  (22) 
USERREC  (63) 
BUFLOC  (1293) 
TAG 

ERRCODE 

BUFSIZE 

STRUCT 

HEAD  (2,257) 
TBL  (512) 

KCB  (3,32) 

KB  (64) 


Values  extracted  from  the  fifth  word  of  the  display 
format  (1). 

Three  of  six  values  extracted  from  the  fifth  word  of 
the  format  ( 0). 

Indicates  that  first  employee  (only)  will  not  be 
checked  for  value  of  MUL. 

The  display  format  for  a specific  field  of  data  from 
USERREC,  an  employee's  record. 


Indicates  whether  or  not  a date  is  to  be  converted  to 
an  inclusive  number  of  years. 

Indicates  whether  or  not  the  first  word  of  an  extracted 
field  contains  blanks. 

The  total  length  of  field  in  the  user  record. 

The  starting  character,  within  the  field  of  the  sub-field 
indicated  by  QUERYNM. 

Length  of  subfield. 

Indicates  whether  or  not  field  is  vacant. 

Name  of  the  field  in  the  COBOL  input. 


Indicates  the  number  of  2-word  entries  in  header  block, 
i.e.,  two  words  per  employee.  (<256) 

Indicates  the  number  of  SSN  in  the  data  block  being 
formed. 

File  Information  Table  for  IS. 

An  employee  record. 

IS  buffer. 

Key  location. 

Variable  to  receive  status  code  from  IS. 

Size  of  IS  buffer. 


Memory  storage  for  header  values  as  blocks  are  built  up. 
Memory  storage  for  blocks  of  SSN. 

Memory  storage  for  key  control  blocks. 

Memory  area  for  the  key  block. 
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KEY 

IN 


The  number  of  a particular  category  in  the  inverted  file. 
Record  number  for  writing  key  block 


UNNAMED  COMMON 

Location 
(Octal ) 

INVERT 

Variable 

0 

FMT  (5.256) 

The  formats  defined  for  each  field  in  the 
employee  data  file.  The  maximum  is  256 
of  these  five-word  formats. 

2400 

SOFTBUF  (10000) 

Sort  buffer. 

Location 
(Octal ) 

DATADIV 

Variable 

Explanation 

0 

IDUM  (3000) 

Dummy  Storage. 

5670 

LEVEL  (250) 

Type  of  input  data  record  from  COBOL 
output. 

6262 

STACK  (250) 

Indicator  of  the  current  data  record 
being  examined. 

Location 
(Octal ) 

MERGE 

Variable 

Explanation 

0 

IFMT  (5,256) 

The  formats  defined  for  each  field  in  the 
employee  data  file. 

2400 

TEMP  (1280) 

Storage  used  when  merging  the  formats 

into  order. 
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APPENDIX  C 

BRIEF  DESCRIPTIONS  OF  PROGRAMS  AND  SUBROUTINES 
OF  THE  QUERY  SYSTEM 


THE  (0,0)  OVERLAY  (QUERY) 


QUERY*  The  main  program  of  the  (0,0)  overlay.  If  performs  the 
following  tasks: 

1)  Initializes  common  variables,  FORTRAN  mass  storage 
subroutines,  and  IS  subroutines. 

2)  Reads  three  data  records  from  Disk  1. 

3)  Sets  up  three  display  formats. 

4)  Sets  up  one  sort  format. 

5)  Accesses  a tutorial  subroutine,  COMHELP. 

6)  Calls  EXEC,  the  executive  subroutine  of  the  system. 


BINSRCH  Finds  the  index  of  an  element  in  a given  array.  That  element 

has  a value  equal  to  the  specified  input  value. 

CATDIR  Determines  the  nature  of  an  entry  in  the  CATEGRY  subroutine. 

CATEGRY*  Subroutine  called  from  EXEC  when  either  of  the  commands  GROUP 

or  COMBINE  has  been  entered.  It  performs  the  following  functions: 

1)  Gets  next  entry  from  stack. 

2)  Determines  nature  of  entry  (command,  directive,  or  value) 
and  transfers  to  appropriate  code. 

3)  If  values  are  to  be  entered,  calls  in  OVERI.AY  (1,0)  to 
read  them.  If  appropriate,  transfers  to  OVERLAY  (2,0) 
and  performs  a GROUP  or  COMBINE  operation  on  the 
designated  set  of  elements. 

4)  If  a DISPLAY,  COMPUTE,  or  ELEMENT  directive  has  been 
entered,  calls  in  the  appropriate  overlay. 

5)  If  a TIME,  ABORT,  HELP,  STOP,  ),  or  = directive  has  been 
entered,  goes  to  the  appropriate  code. 

COMPARE  Compares  two  input  numbers  to  determine  the  relationship  of 
one  to  the  other  (greater  than,  equal  to,  or  less  than). 

DEFINIT*  Builds  up  an  array  with  definitions  (formats)  of  designated 
fields,  five  words  per  field. 


*A  flow  chart  of  corresponding  code  is  provided  in  Appendix  E. 


[^LEXE  Deletes  an  entry  (element)  from  the  input  string;  releases 

a node. 

EXEC*  The  executive  subroutine  of  the  QUERY  system.  It  performs 

the  following  functions: 

1)  Reads  and  interprets  a command  ---  permissible  ones  are 
GROUP.  COMBINE,  SORT,  STOP,  ELEMENT,  TABLE,  TIME,  HELP. 

2)  Transfers  to  appropriate  subroutine  or  overlay. 

FORGIVE  Insures  that  a BCD  number  has  a specified  number  of  numeric 
digits. 

GETNODE  Gets  the  next  location  (node)  in  the  data  structure  available 
for  input  elements. 

GETPAGE  Gets  a new  record  number  for  storir  data  of  QUERY. 

GETSTRG  Fetches  from  the  TTY  terminal  buffer  a string  of  entries, 
consisting  of  commands  and  data. 

INSERT  Updates  the  input  array  of  indices  and  adds  an  entry  to  the 
input  string.  INSERT  is  an  entry  point  of  DELETE. 

PUTNODE  Releases  an  input  element  location  (node)  from  the  data 
structure. 

PUTPAGE  Releases  a record  and  makes  its  name  available. 

READER  Reads  a complete  line  of  input  transmitted  from  the  TTY. 

STATTIM  Determines  elapsed  central  processor  time  and  "connect"  time. 

YESNQ  Determines  which  of  the  two  entries  Yes_  or  has  been  made 

by  the  TTY  user. 


All  subroutines  which  offer  help  on  the  use  of  QUERY  are  described  in 
the  section  entitled  "On-Line  Information  About  QUERY  Commands  and 
Directives. " 


74 


THE  (1,0)  OVERLAY  (VLOVL) 


t 

MYk* 

i 

BUBBLE 

BUILD* 

clean 

CONNECT 

PARSER 

SYNO 

VALUE* 


The  main  program  of  the  (1,0)  overlay: 

1)  Determines  whether  or  not  the  current  input  category 
is  the  first  category  to  be  read  in. 

2)  If  so,  reads  key  block  from  mass  storage  into  KBA, 
otherwise,  into  KBB. 

Removes  duplicate  data  from  input  string. 

Builds  a new  data  file  (TBLB)  for  a certain  category  from 
the  data  contained  in  another  data  file  (TBLA).  The  elements 
to  be  selected  from  TBLA  are  identified  by  data  specified  in 
the  TTY  input. 

Removes  redundancies  from  the  input  list  of  delimiting  values 
and  connecting  words. 

Checks  for  connecting  words,  and  replaces  all  such  words 
with  the  word  CON.  The  output  from  the  routine  CONNECT  is 
used  as  input  to  PARSER. 

Separates  the  input  string  into  individual  values  and  connectors, 
and  stores  these  words  in  the  array  NODE. 

Checks  for  synonymous  words  which  specify  the  starting  and 
ending  values  of  a range  of  values. 

Gets  the  values  associated  with  a category  as  indicated  by 
the  input  list: 

1)  Determines  whether  or  not  the  next  entry  lies  within 
the  current  record. 

2)  Checks  for  the  presence  of  special  connecting  or  delimiting 
words. 

3)  Calls  on  the  subroutine  VALHELP  to  print  information 
about  entering  data  via  the  TTY. 

4)  Separates  the  input  string  into  units  and  stores  the 
values  contiguously  in  an  array. 

5)  Checks  the  string  for  duplicate  and  zero  values. 

6)  Initializes  and  enters  the  subroutine  BUILD  to  construct 
a file  of  pertinent  elements. 

7)  Closes  the  file  being  built  and  completes  a key  block  for  it. 
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WHAT 


Searches  the  input  string  for  the  v/ords  CON  and  NOT. 
ZERNODE  Removes  zero-valued  nodes  from  the  input  string. 


THE  (2,0)  OVERLAY  (GCOVL) 

GCOVL*  The  main  program  of  the  (2,0)  overlay.  Determines  which 

operation  is  to  be  performed  and  transfers  to  the  appropriate 
subrouti ne. 

ANDER  Writes  out  a series  of  records  which  are  pointed  to  by  the 

words  KBRj.  These  records  contain  certain  data  chosen  from 
records  TbLB,  by  means  of  a test  performed  by  subroutine 
MATCH.  In  the  test,  each  of  the  records  pointed  to  by  KBBj 
is  compared  with  all  records  specified  by  KBA-j . Any  match 
is  indicated  by  ORing  a 1 into  the  last  bit  position  of  the 
element  of  KBBj. 

COMBINE  Performs  the  COMBINE  operation.  Constructs  records  which 

consist  of  the  OR'd  data  of  two  input  sets.  The  new  records 
combine  data  from  one  set  with  all  those  elements  of  the 
other  that  are  different. 

GROUP  Called  to  GROUP  data.  Constructs  records  TBLA-j  which 

contain  only  those  elements  of  TBLBj  which  match  some  element 
of  the  set  TBLA,.  This  is  the  operation  of  ANDing  two  sets 
or  records. 

MATCH  Compares  elements  of  category  B with  a given  header  value  of 

category  A with  elements  of  category  B of  all  header  values. 
Indicates  a match  in  the  words  of  category  B. 


THE  (3,0)  OVERLAY  (DSOVL) 

DSOVL*  The  main  program  of  the  (3,0)  overlay.  It  determines  which 
type  of  display  is  to  be  produced,  and  transfers  control  to 
DISPLAY  (set  of  employees)  or  ELEMENT  (one  element). 

DEFINE*  Defines  and  saves  a new  format  for  use  in  addition  to  those 
predefined  formats,  in  printing  output. 

DISPLAY*  Displays  data  about  each  employee  represented  by  SSN  in  a 
set  or  file.  The  output  may  be  generated  on  the  teletype 
either  in  a predefined  format  or  a dynamically  constructed 
format,  or  it  may  be  produced  by  means  of  a batch  run. 
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DISTART*  Controls  the  display  process;  permits  selection  of  a format, 
disposition  of  output,  and  printing  of  headings. 

ELEMENT*  Displays  data  about  the  employee  whose  SSN  has  been  entered 
by  the  liser  at  the  TTY.  Data  will  be  presented  as  specified 
in  DISPLAY. 

FETCH  Retrieves  specified  fields  from  user  records,  for  output. 

Prints  headings  on  each  page  of  the  output. 

PRINTER  Prints  output  for  specified  employees  in  a given  format. 

there  Creates  a random  file  name  for  a batch  job. 


THE  (4,0)  OVERLAY  (SROVL) 

SROVL*  The  main  program  of  the  (4,0)  overlay.  Transfers  directly  to 
the  subroutine  SORT. 

DEFINIT*  Defines  and  saves  a new  format,  for  use  in  addition  to  the 
predefined  formats,  in  printing  output.  This  subroutine 
duplicates  the  DEFINE  subroutine  included  in  OVERLAY  (3,0). 

DISTART*  Controls  the  display  process;  selects  a format  for  printing, 

designates  disposition  of  output,  and  determines  whether  or  not 
headings  are  desired.  This  subroutine  duplicates  the  DISTART 
subroutine  in  OVERLAY  (3,0). 

SORT*  Coordinates  the  preparation  of  the  data  to  be  sorted  by  a batch 

program.  Retrieves  the  category  to  be  sorted,  provides  for 
transfer  to  the  HELP,  TIME,  and  ABORT  subroutines,  allows 
definition  of  sort  type,  predefined  or  dynamically  defined  — 
makes  up  the  input  for  the  job,  and  submits  this  input  to  the 
batch  queue. 

SORTDEF*  Prepares  a sort  definition  from  one  or  more  fields  and  catalogs 
the  definition.  This  sort  definition  may  be  used  for  sorting 
in  the  same  way  as  the  predefined  formats  are  used. 

THERE  Creates  a random  file  name  for  a batch  job. 


THE  (5,0)  OVERLAY  (CMOVL) 


(^_0V]^*  The  main  program  of  the  (5,0)  overlay.  It  transfers  control 

directly  to  the  subprogram  COMPUTE. 

Writes  out  a series  of  records  which  are  pointed  to  by  the 
words  KBRj.  These  records  are  modified  forms  of  records 
TBLB-j : all  words  in  records  pointed  to  by  KBBj  that  match 

words  in  records  pointed  to  by  KBA-j  are  indicated.  GANDER 
operates  in  the  same  way  as  ANDER  of  the  (2,0)  overlay. 

CGROUP*  Computes  the  number  of  employee  SSNs  occurring  in  both  a 

constructed  set  and  a specified  category.  Computes  the  sum 
of  the  values  of  each  element  in  the  resultant  set. 

COMPUJ^*  The  controlling  subroutine  of  this  overlay.  It  interprets 
user  input-commands  and  category  names.  Verifies  existence 
of  inverted  category.  Transfers  to  CGROUP  and,  on  return, 
prints  out  the  computed  data. 

INUM  Computes  a right-adjusted  integer  from  a left-adjusted 

alphanumeric  character. 

MATCH  Called  on  by  GANDER  to  perform  the  same  function  as  the  like- 

named  subroutine  in  the  (2,0)  overlay.  Compares  elements  with 
a given  header  value  in  one  set  with  all  elements  of  another 
set,  regardless  of  header  value.  Indicates  a match  in  the 
matching  words  of  the  latter  set. 


THE  (6,0)  OVERLAY  (TBOVL) 

TBOVL*  The  main  program  of  the  (6,0)  overlay.  It  transfers  directly 
to  the  subroutine  TABLE. 

COMPARE  Compares  two  input  numbers  to  determine  whether  one  is 

greater  than,  equal  to,  or  less  than  the  other.  (COMPASS 
subrouti re) 

COUNTER  Counts  the  number  of  elements  of  a particular  category  having 
a specific  header  value,  and,  at  the  same  time,  some  specified 
header  value  in  a second  category. 

I 

TABLE*  Gets  category  names-  determines  file  and  record  numbers,  and 
reads  in  key  blocks;  calls  the  subroutine  TBLCNT  to  generate 
and  print  out  the  table,  or,  if  the  output  is  to  be  generated 
by  a batch  program,  TABLE  prepares  a file  of  input  and  calls 
THER4. 
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TBLCNT 


Computes  and  prints  out  a table  giving  the  correspondence 
of  two  categories  by  header  value.  The  number  of  elements  (in 
each  of  the  two  categories)  which  possess  each  combination  of 
header  values  is  printed  out. 

THER4  Creates  a random  file  name  for  a batch  job. 


THE  (7,0)  OVERLAY  (HLPOVLl) 


HLPQVLl  This  program,  called  by  the  main  overlay,  determines  which 
of  the  three  subroutines,  CATHELP,  SPCHELP,  and  VALHELP, 
is  to  be  invoked,  and  transfers  to  it.  These  and  other  HELP 
subroutines  called  by  them  are  described  in  the  section 
entitled  "On-Line  Information  about  QUERY  Commands  and  Directives. 

NUMBER  A subroutine  called  by  SETLOOP.  It  reads  a number  entered 
at  the  terminal  and  converts  it  to  binary  number. 

SETLOOP  This  subroutine  determines  which  of  the  values  of  a category 
are  to  be  displayed  by  DISHELP,  DEFHLEP,  or  VALHELP. 


THE  (10,0)  OVERLAY  (HLP0VL2) 

HLP0VL2  This  program,  called  by  the  main  overlay,  transfers  to  the 
COMHELP  subroutine  which  provides  general  information  about 
all  of  the  valid  commands  of  the  QUERY  system.  COMHELP  and 
the  subroutines  it  calls  are  described  in  the  section  "On-Line 
Information  about  QUERY  Commands  and  Directives." 


THE  (11,0)  OVERLAY  (BTCH) 

BTCH  This  program  calls  library  subroutines  for  help  in  initializing 

a batch  run  to  produce  output  for  programs  DSOVL,  SROVL,  and 
TBOVL.  It  computes  parameters  which  are  necessary  to  complete 
the  control  cards  for  the  batch  run,  and  stores  these  in  a 
common  block.  The  program  also  designates  an  output  unit 
as  TAPES.  The  following  library  subroutines  are  called; 

CLUNLD  Calls  the  subroutine  CLUXX  to  close  and  unload  a file. 

GETCOM  Calls  the  subroutine  GETSET  to  read  from  the  COMRADE^^ common 

area,  SUBCOM. 

LOCATE  Locates  a character  string  of  shorter  or  equal  length  within 
a longer  string. 

MOVE  Moves  specific-length  character  strings  between  arrays. 

ZPFMAC  Performs  operations,  such  as  ATTACH,  CATALOG,  PURGE,  and  REQUEST, 
on  permanent  files. 
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THE  (12,0)  OVERLAY  (REPBTCH),  THE  (13,0)  OVERLAY  (SRTBTCH),  AND  THE 
(14,0)  OVERLAY  (TBLBTCH) 

These  programs  submit  batch  jobs  for  programs  OSOVL,  SROVL,  and  TBOVL, 
respectively,  after  generating  a record  of  control  cards.  The  output  file 
is  cataloged  and  unloaded,  control  cards  are  set  up,  a choice  is  made  as  to 
the  destination  of  the  output  (printer  or  user- terminal ) , and  a control  card 
record  is  submitted  to  the  batch  input  stream.  Library  subroutines  called 
by  each  program  include  BCHIN  and  CHOICE,  described  following,  and  CLUNLD 
and  ZPFMAC,  described  on  the  previous  page. 

BCHIN  Submits  a control  card  record  to  the  batch  queue. 

I CHOICE^  Allows  the  user  to  choose  the  destination  of  his  batch  output. 


ROUTINES  IN  THE  INVERT  PROGRAM 

INVERT*  The  main  program.  It  performs  as  follows: 

1)  Opens  a mass  storage  file,  calls  the  subprogram  DATADIV, 
and  writes  out  the  generated  formats  to  disk. 

2)  Initializes  the  IS  system. 

3)  Reads  the  5-word  formats. 

4)  Does  steps  4-9  for  each  field  (format)  to  be  "inverted  on. 
Reads  parameters  for  a field. 

5)  Gets  the  array  of  formats  for  the  current  field. 

6)  Unpacks  the  fifth  word  of  the  format. 

7)  Makes  up  elements  of  the  key  block. 

8)  Sorts  all  employee  records  by  header  values  of  the  current 
category  (name  of  field). 

9)  Completes  and  writes  to  tape  (disk)  the  key  block.  Forms 
the  key  control  block  for  the  current  category. 

ID)  Forms  and  writes  to  disk  a control  record  for  the  total 
inversion. 

11)  For  each  key,  prints  key  control  block,  key  block,  header 
blocks,  and  data  blocks. 

12)  Terminates  the  inverter. 


BINSORT  Arranges  (sorts)  the  5-word  formats  constructed  by  DATADIV 
into  alphabetical  order  by  name  (the  first  two  elements  of 
the  format). 
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Determines  whether  a particular  input  name  (or  a format)  is 
in  a given  array.  Specifically,  in  INVERT,  BINSRCH  determines 
whether  or  not  a particular  category  name  (COBNAME)  exists  in 
the  array  of  names  generated  by  DATADIV. 

Compares  two  inputs  to  determine  a greater  than,  equal,  or 
less  than  relationship. 

Prepares  a data  array  for  subsequent  processing  by  the  INVERTER. 
The  output  of  a COBOL  program  (data  map)  is  read  into  DATADIV 
and  a 5-word  format  for  each  of  the  fields  occurring  in  the 
data  map  is  made  up.  The  name  of  the  format  is  given  in  the 
first  two  words  of  the  format. 

Selects  a specific  field  from  a user  record  (USERREC)  of  data. 

Called  by  SORTER,  this  subroutine  fetches  from  an  employee 
record  a specific  field  of  data,  as  represented  by  a format 
made  up  in  DATADIV. 

Gets  the  current  (Julian)  date. 

Merges  formats  into  the  alphabetical  order  determined  by  COMPARE. 

Positions  the  characters  of  a field  at  the  beginning  of  a word. 

Writes  out  the  social  security  numbers  sorted  by  SORTER. 

When  the  array  is  full,  it  is  written  as  a data  record  to  mass 
storage. 

Arranges  employee  SSN's  according  to  header  values  within  a 
given  category.  Thus,  if  AGE  is  the  sort  category,  the  SSN's 
of  all  employees  of  age  16  are  followed  by  those  of  all 
employees  of  age  17,  etc.  This  arrangement  greatly  facilitates 
the  retrieval  of  employee  data  (SSN-keyed)  for  an  employee 
specified  by  some  specific  attribute  (e.g.,  age). 

For  a data  word  fills  character  positions  following  a blank 
with  blanks. 

Calculates  the  time  span  (in  years)  between  an  input  date 
(Julian)  and  the  present  date  (Julian). 


PROGRAM 

Main  program.  Reads  input  data  generated  by  QUERY  by  means 
of  ordinary  FORTRAN  reads  from  TAPEl  (a  disk  file).  Initializes 
IS  and,  for  each  SSN  in  the  input,  reads  employee  records  (from 
file  EMPDATA),  and  calls  subroutine  PRINTER. 
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PRINTER  Writes  specified  data  for  a designated  employee  to 
the  output  file. 

HEADER  Writes  headings  on  each  page  of  the  printed  output. 

FETCH  Retrieves  from  a user  record  the  specified  fields  to  be 

written  out. 


THE  SORTREP  PROGRAM 

SORTREP*  The  main  program.  It  performs  as  follows: 

1)  Initializes  the  IS  system. 

2)  Reads  the  sort  and  display  definitions  from  TAPEl  using 
ordinary  FORTRAN  read  statements. 

3)  Calls  the  subroutine  SORTER  to  perform  the  sort  and  to 
display  the  results. 

FETCH  Sets  up  a new  array  containing  only  certain  specified  data 

of  the  first  array. 

GET*  Gets  information  from  the  user  record  of  each  employee  (TAG 

or  SSN),  which  information  is  determined  by  the  sort  definition. 
The  data  items  are  packed  in  an  array  (IN),  the  first  word 
being  the  SSN. 

HEADER  Prints  out  a heading  at  the  top  of  each  page  of  output  of 
identifying  information  about  each  field  in  the  format. 

PRINTER  Prints  out  data  about  an  employee  in  a predetermined  format. 

PUT*  Controls  the  output  of  employee  data  as  specified  by  the 

display  format. 

SORTER  Sorts  a selected  set  of  employees  according  to  certain  "keys." 

This  subroutine  makes  use  of  the  system  subprogram  SMC0N7,  to 
do  the  actual  sorting.  SORTER  calls  GET  to  fetch  the  data, 
and  PUT  to  print  it. 


THE  TABLE  PROGRAM 

TABLE*  The  main  program.  It  performs  as  follows: 

1)  Opens  mass  storage  file. 

2)  Reads  header  and  data  (SSN)  blocks  from  TAPE2,  using 
ordinary  FORTRAN  read  statements. 
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COMPARE 

COUNTER 

TBLCNT 


3)  Writes  this  information  to  a mass  storage  file  (TAPEl). 

4)  Reads  the  key  blocks  and  category  names  from  TAPE2. 

5)  Calls  the  subroutine  TBLCNT  to  format  and  print  out  the 
requested  table.  IS  is  not  used  in  program  TABLE, 
because  only  inverted  categories  are  referenced. 

Compares  two  input  numbers  to  determine  whether  one  is  greater 
than,  equal  to,  or  less  than  the  other  (COMPASS  subroutine). 

Counts  the  number  of  elements  in  one  category  having  a 
specific  header  value  and  also  some  specific  header  value  in 
a second  category. 

Computes  and  prints  out  a table  giving  the  correspondence  of 
two  categories  by  header  value.  The  numbers  of  elements  (in 
each  of  the  two  categories)  which  possess  each  combination 
of  header  values  is  printed  out. 


83 


APPENDIX  D 

SPECIALLY  USED  CODING  SYSTEMS 

THE  CDC  INDEXED  SEQUENTIAL( IS)  DATA  STORAGE  AND  RETRIEVAL  SYSTEM 

The  indexed  sequential  (IS)  file  organization  system  is  one  of  several 
file  organization  systems  available  under  the  SCOPE  3.4  operating  system 
through  the  CDC  Record  Manager.  IS  files  offer  certain  advantages  of  both 
sequential  files  and  direct  access  files  in  that  they  can  be  processed  either 
sequentially  or  randomly.  The  QUERY  employee  data  file  EMPDATA  contains  a 
record  for  each  employee.  The  QUERY  system  enables  the  user  to  access 
information  about  an  individual  employee  directly  from  within  the  subroutines 
DISPLAY  and  ELEMENT.  It  enables  the  entire  EMPDATA  file,  or  a generated 
subset  of  the  file,  to  be  accessed  sequentially  from  within  the  programs 
INVERT  and  SORTREP.  This  capability  of  processing  IS  files  both  randomly 
and  sequentially  allows  the  user  to  organize  his  data  into  a more  flexible 
and  convenient  file  structure,  although  he  requires  more  storage  space  and 
the  program  execution  time  may  be  increased. 

Each  record  of  an  indexed  sequential  file  is  associated  with  an  identifying 
"key"  which  is  used  by  Record  Manager  in  arranging  the  records  at  the  time 
the  file  is  created.  Record  Manager  maintains  an  index  of  all  records  in 
the  file  by  creating  an  index  entry  to  link  the  record  key  with  the  file 
location  of  that  record  when  the  record  is  first  written  to  the  file.  When 
a user  wishes  to  access  a record,  he  supplies  the  appropriate  record  key,  and 
the  desired  record  is  returned  to  him  in  his  own  dimensioned  working  storage 
area.  The  manipulation  of  the  index  is  done  automatically.  Since  the  key  is 
used  to  locate  an  index  entry,  not  the  record  itself,  the  key  need  not  be  part 
of  the  record. 

To  summarize,  an  indexed  sequential  file  is  a collection  of  index  blocks 
of  key  entries,  one  key  entry  composed  of  a record  key  and  a pointer  to  the 
record's  location  within  the  data  block  for  each  record  contained  in  the 
block.  The  index  block,  on  the  other  hand,  contains  information  which  links 
the  record  key  with  the  data  block  containing  that  record.  The  index-block 
information  is  used  for  indirect  access.  Thus  an  index  entry  in  an  index 
block  points  to  the  data  block  containing  the  record,  and  a key  entry  within 
the  data  block  points  to  the  precise  location  of  the  record. 
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The  following  subroutines  are  available  to  the  user  of  the  IS  data  storage 
and  retrieval  system: 

FILEIS  - Uses  data  supplied  in  a list  following  the  call  to  set  up  fields 
in  the  file  information  table  (FIT).  These  data  give  information 
about  structure,  status,  and  position  of  the  file. 

OPENM  - Opens  a file  and  prepares  it  for  further  processing.  Parameters 
in  the  list  specify  whether  the  file  is  to  be  read  in  or  written 
out,  or  both. 

GET  - Returns  a single  record  to  the  working  storage  area.  The  key 
to  the  subject  record  is  provided  by  the  user. 

GETN  - Reads  the  IS  file  as  if  it  were  a sequential  file,  i.e.,  it 
reads  the  record  from  the  current  position  of  the  file. 

THE  CDC  SORT/MERGE  SYSTEM 

The  use  of  the  SORT/MERGE  program  SMC0N7  under  the  SCOPE  3.4  operating 
system  is  considerably  different  than  under  SCOPE  3.3.  It  has  been  designed 
for  use  with  a series  of  macro  calls  which  are  expanded  by  the  COMPASS 
assembler.  SMC0N7  is  called  by  COMPASS  subroutines  of  the  programs  INVERT 
and  SORTREP  which  set  up  necessary  parameters  for  the  call  and  contain  coding 
necessary  for  calling  data  acquisition  and  disposition  routines. 

The  SORT/MERGE  macros  called  by  each  subroutine  are  SORT,  KEY  and  OWNCODE. 
The  SORT  macro  initiates  SORT/MERGE  functions.  The  KEY  macro  specifies  each 
sort  key  used  during  the  sort  process  (a  "key"  being  a field  of  data  used  for 
sorting  data  records  according  to  a specified  order).  A separate  KEY  macro 
call  must  be  made  for  each  sort  key  specified,  and  as  many  as  100  sort  keys 
are  permitted  in  any  one  run.  The  keys  are  processed  in  the  order  given. 
Parameters  included  with  this  macro  specify  the  first  byte  and  bit  of  the 
sort  key,  the  number  of  complete  bytes,  any  extra  bits  in  the  key,  and,  if 
needed,  the  type  of  data  to  be  processed,  the  name  of  a user-specified 
collating  sequence,  and  the  sequencing  order  of  sort  processing  (ascending  or 
descending). 

The  OWNCODE  macro  specifies  entry  point  names  of  a user's  own  code  exits, 
each  of  which  calls  in  another  subroutine  to  perform  a specific  function, 
such  as  the  retrieval  or  printing  of  records,  or  the  termination  of  the  sort. 
In  PROGRAM  INVERT  user-coded  subroutine  GETDATA  is  referenced  by  the  OWNCODE 
macro  to  retrieve  data  that  are  used  by  SMC0N7.  Subroutine  PUTDATA  stores 
sorted  records  into  a user  area,  from  which  they  eventually  will  be  picked 
up  for  printing. 


86 


r ^ 

FORTRAN  MASS  STORAGE  SUBROUTINES  ' 

When  large  quantities  of  data  are  to  be  stored  on  disk,  object-time 
subroutines  are  used  to  control  the  transmission  of  records  to  and  from 
central  memory.  A mass  storage  file  of  the  QUERY  system  is  referenced  by 
the  following  statements: 

CALL  OPENMS  (u,  ix,  1,  p) 

CALL  READMS  (u,  fwa,  n,  i) 

CALL  WRITMS  (u,  fwa,  n,  i) 
where 

u logical  unit  number. 

ix  address  of  the  first  word  of  the  record  index  in  central  memory. 

1_  length  of  the  index  array. 

indicates  that  the  file  is  referenced  through  a name  index  (p=l) 
or  a number  index  (p=0). 

fwa  central  memory  address  of  the  first  word  of  the  record, 
n number  of  central  memory  words  to  be  transferred, 

i record  number  or  address  of  a call  containing  the  record  name. 

Before  processing  can  proceed,  the  mass  storage  file  must  be  opened 
(OPENMS).  The  operating  system,  SCOPE,  operates  upon  the  file  in  a random 
access  mode.  Subroutines  READMS  and  WRITMS  perform  the  actual  transfer  of 
data  to  and  from  central  memory.  After  the  job  terminates,  the  mass  storage 
file  is  automatically  closed. 


APPENDIX  E 

FLOW  CHARTS  OF  PROGRAMS  AND  SUBROUTINES  IN  THE  QUERY  SYSTEM 

The  following  flowcharts  are  of  the  larger  programs  and  subroutines  of 
the  QUERY  system. 
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DTNSRDC  ISSUES  THREE  TYPES  OF  REPORTS 

(1)  DTNSRDC  REPORTS,  A FORMAL  SERIES  PUBLISHING  INFORMATION  OF 
PERMANENT  TECHNICAL  VALUE,  DESIGNATED  BY  A SERIAL  REPORT  NUMBER. 

(2)  DEPARTMENTAL  REPORTS,  A SEMIFORMAL  SERIES,  RECORDING  INFORMA- 
TION OF  A PRELIMINARY  OR  TEMPORARY  NATURE,  OR  OF  LIMITED  INTEREST  OR 
SIGNIFICANCE,  CARRYING  A DEPARTMENTAL  ALPHANUMERIC  IDENTIFICATION. 

(3)  TECHNICAL  MEMORANDA,  AN  INFORMAL  SERIES,  USUALLY  INTERNAL 
WORKING  PAPERS  OR  DIRECT  REPORTS  TO  SPONSORS,  NUMBERED  AS  TM  SERIES 
REPORTS,  NOT  FOR  GENERAL  DISTRIBUTION. 


